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PROCRAMAS ZX81 


Caxinho das Estrelas cocecvccovcceces 


13 eooDCeDDcoreroDCoc Coco socos... 
Regime Alimentar ccevececossocosesess 


Dia da Semana  ceccecerecerococosescos 


PROGRAMAS ZA SPECTRUM 
Auxiliar de Desenhe 000000800 2Z=“Ps906 
Space Poller coococossserocosvossasa 


Alunacem ecroocrsesscsseDtorosososces. 


PROCRAMAS NEWERAIN 
Programa para computador Newbraíin cos 


INTRODUÇÃO À PROGRAMAÇÃO ESTRUTURADA ce. 


NOTA DO CLUBE &=l ? 


PESIIIVIDIDTTD3S2S33]2333=3]]53] 


Muitos já terão dito “afinal a nova & 
presentação gráfica do nosse boletim 
foi sol de pouca dura!”, 


Pois é..o Cfectivamente, ainda não é 
possivel suportarmos as despesas que a 
impressão criçgina. O número anterior 
foi uma experiencia que arriscámos ten 
do sobretudo em vista alargar o CLUBE 
Z-5 a novos utilizadores que o desco- 
nhecesselnis 


Pensou-se, no mês de Março, que o bole 
tim deveria ser enviado a um grande nu 
mero de pessoas (não sócias mas possui 
doras de micro=computadores) que pode- 
riam estar interessadas em associar-se 
ao CLUBE CEP. 
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Ora, dado que teríamos de fotccopiar 
uma quantidade de boletins muito su- 
perior à usual, porque não experimen 
tar a impressão (tiragem mínima de 
500 exemplares)? 


Pensamos, no entanto, que o impacto 
produzido pela nova revista não atin 
giu o que se ecperava - apenas conse 
guimos mais 25 sóciose 


Será que não seleccionamos os desti- 
natérios mais indicados? Será que O 
preço de inscrição parece alto? Será 
que o boletim não é o que se esperaí 


Quaisquer que sejam as razões, o cer 
to é que o CLUBE Z-80) quer centinuar 
COM A PARTICIPAÇÃO E A COLABOKAÇÃO 
DE TODOS! 


a 





O "Be-A-BA? DO 








A QUARTA REGRA É NÃO MISTURAR AS INICI 
ALIZAÇÕES, O PROGRAMA PRINCIPAL E OS 
SUB-PROGRAMAS, MAS COLCCAR CADA CATEGO 
RIA DE MODO BEM DISTINTO NA SEQUENCIA 
DAS LINHAS DE INSTRUÇÕES BASIC 





A tendencia natural é colocar as três 
categorias na ordem adoptada pela enu- 
meração precedente, Mas é necessário re 
flectir; O que distingue um sub=proçra- 
ma do programa principal? Em geral, de- 
termina-se que uma parte de programa se 
rá um sub-programa, devido a uma das se 
guintes razões: 
e trata-se de uma sequencia de opera= 
ções a ser executadas em muitos locais 
do programa; portanto, é preferível es- 
crever as instruções uma só veze 
e trata-se de pequenas partes de progra 
mas complexos; portanto a realização de 
sub-programas é uma questão de modular i 
dade, 
Relativamente à primeira razão, resulta 
que os sub=programas serão indubitavel- 
mente as partes de programa executadas 
mais frequentemente que as outras, Ora, 
o que faz o BASIC interpretado quando 
deve ser executada uma instrução do ti= 
po: 

CCTO 1000 ou 

COSUB 1000 2? 
Ele explora o programa desde o início a 
té localizar ,à linha respectiva ( no em 
xemplo dado é a linha 1000). Portanto, 
se queremos que essa execução seja rápi 
da, é vantajoso fazer com que as partes 
mais frequentemente executadas estejam 
o mais perto possível do início do pro= 
grama. É por isso que deverá evitar-se 
inserir os sub=programas depois do fim 
do programa principal. 


Para além disso, se alguns dos subspro- 
gramas estabelscides sãe muito específi 
cos para a aplicação concernente, ou- 

tros serão de interesse geral e resuti- 
lizáveis, Se se pretende formar uma bi-= 


blioteca de sub=programas, será mais có- 


modo que eles estejam num lugar fixo, 


Com um pouco de prática, é fácil lembrar 
mos o número de linha em que começa cer- 
to sub=programa utilizado frequentemente, 
Crfim, nas aplicações de informática in- 
dividual,o programa principal começa qu 
ase sempre pela exibição de um “Menu” 

que apresenta o conjunto das grandes fun 
ções que o programa oferece ao utiliza-. 
dor. Será mais cómodo que a parte do pro 
grama que incluí este menu esteja sempre 
num lugar fixo: encontrá-la-emos facil- 
mentes. 


Todas estas considerações levam a adoptar 

uma regra para a numeração , e a respeitá 
-la aquando da escrita de todes os progra 

mas posteriores. Por exemplo, poderá deci 

dir-se de uma vez para sempre que; 

o às linhas O a 990 serão reservadas para 

as inicializações; elas terminarão por um 

deslocamento do início do programa, de mo 

do que as instruções de inicializações se 

jam suprimidas após execução. 

e às linhas 1000 a 2990 serão reservadas 

para os sub=programas 

e à afixação do menu começará na 3000 

e à resposta 1 ao menu enviará à linha 

l1:000, a resposta 2 à linha 12 000, e as 

sim sucessivamente, 

Naturalmente, coloca-se em 999 um GOTO 

3000, de modo a evitar que o programa si 

ga automaticamente para sub=-programas, 


À adopção de tais regras apresenta muitas 
vantagens: 

- Os sub-programas são re-utilizáveis: an 
tes de escrever um novo programa, deve 
Tarregarase o programa precedente para a 
memória e eliminar-se-á tudo o que prece- 
de e tudo o que se segue aos sub-progra- 
mas, tal como os sub-programas espetífi- 
COS 

- OS sub-programas frequentes serão sem- 
pre chamados pelo mesmo número de instru= 
ção BASIC. 

. O nomeação do menu, facilmente de- 
tectável devido à sua posição fixa, permi 
te uma orientação cômoda; É iqigaar MO — 
mento sabemos em que grande capítulo do 
programa nos encontramos, de acordo com o 
número de linha da instrução, 

e O procrama executa-se mais rapidamente 


(continuado do nº anterior) 


<> e Det ady cmo e sa 


A QUINTA REGRA É NÃO FAVORECER A OUR 
FUSÃO NAS VARIÁVEIS 


As variáveis locais que são utiliza- 
das nos sub=programas e os ciclos liber 
tados à saída devem ser claramente dis- 
tintos das variáveis que suportam resul 
tados intermediários, dados e indicado- 
res, assim como variáveis que servem pa 
ra transmitir parametros. Em caso de cl 
clos e subeprogramas imbricados, isso 
pode evitar erros. Pode-se, por exemplo, 
decidir adoptar: 

. nomes de variáveis começando de A a H 
para os dados e os resultados intermedi- 
ários 

. nomes de variáveis começando de I a P 
para as variáveis locaés de ciclos 

e nomes de variáveis começando de R a Z 
para as variáveis locais de sub=progra- 
mas 

. nomes compostos por uma letra seguida 
de um algarismo para os parametros que 
se transmitem entre programa principal 
e sub=programas 

« nomes compostos por duas letras para 
as outras variáveis 

De facto, pouco importam as convenções, 
desde que se adopte e respeite uma re= 
grãse 


Esta regra implica que, uma vez Oo progra- 
ma terminado, sejam feitos testes para ve 
rificar o seu funcionamento. 

O utilizador tem direito a errars Quando 
isso acontece é talvez depois de ter repe 
+ido 100 vezes a mesma operação sem se er 
sanar, Deve-se pensar , a todo o momento , 
no conforto do utilizador; se for inevité 
vel que ele leia uma mensaçerm de erro,que 
ao menos ela seja em portugues e agrada- 
vel. Parta do princípio que o utilizador 
fará cada vez mais erros se começar a en= 
trar em panico. Todos os erros devem ser 
previstos. Esats observações são também 
válidas se o utilizadoreee € você. 


Não ponha questões quando há uma única 
resposta a desencadear uma acção. Por e- 
xemplo: QUER VOLTAR AO MENU (S/N),é des- 
necessária; ESCREVA “ENTER” PARA VOLTAR 
AO MENU é suficientes. 

Cuíde das afixações e das edições de modo 
a facilitar a sua consultas 

Resista à tentação de usar processos mã= 
nhosos, mesmo que eles o seduzam no momen 
toe 

Economizar um segundo de tratamento ou ga 
nhar três linhas de programa não valem pa 
ra perder uma estrutura claras E não es- 
queça que “menos linhas de Basic” não sig 
nifica sempre “mais rapidez de execução”. 


Na informática tradicional, de há cerca de 
15 anos, o ponto de vista era totalmente 


diferente. Os tratamentos faziam-se por lo 
tes e não pelo modo de "aiálogo”, e por ve 
zes demoravam muitas horase Actualmente, 
uma hora de aluguer de um grande computa- 
dor pode valer 7 vezes mais o salário men-= 


DD 


A SEXTA REGRA CONSISTE EM DOCUMENTAR O 
PROGRAMA , 


SS 


Quande puser o programa à funcionar pe- 
la primeira vez, é possivel que ainda 
se lembre bem das diferentes partes do 
programas Mas os problemas tratados pe- 
la informética evoluem frequentemente 
e, ao fim de alguns meses, quando você 
quiser alterar o seu programa, os comen 
tários que lhe tiver inserido inicial- 
mente são extremamente preciosos. Arran 
je tempo para os redigir de modo claro, 
conciso e completos. 

Termine os blocos de programa por uma 
linha REM em branco, de modo à que cada 
grupo lógico se destaque com nitidez. 


DO 


A SÉTIMA REGRA É RESPEITAR O UTILIZADOR 


sal de um programador. Se se puder ganhar 
uma hora num tratamento de 5 horas, já 
uma economia apreciável 


Dantes, os programas eram estabelecidos 
com o único objectivo de ser o mais efi- 
cazes possível. O melhor programa era O 
que economizava memória ou se executava 
mais rapidamentes Hoje, o seu tempo é rui 
to mais precioso que o do computador. Por 
isso, considera-se um terceiro critério 
tão importante como os dois primeiros: O 
programa deve ser fácil de ler e de modi- 
car, ego, estético. De qualquer modo, O 
autor deve agora ter um bom estilo! 


(Traduzido e adaptado da revista 
"1, ºORDINATEUR INDIVIDUEL”, Nove82) 


vem 


INTRODUÇÃO JA 


LINGUAGEM 


MÁQUINA ZX-81 


FERNANDO D/ALMEIDA PRECES 


CAPÍTULO I 


+ dad - O ZH8l pessui um interpretador BA- 
C (memorizado na ROM = 8K bytes de ins 
ea og código máquina) que é a alma. 
da simplicidade do seu manejo, mas que 
introduz algumas restrições no capítulo 
respeitante à entrada da programação em 
código inão 
Existem vários processos de ultrapassar 
essa dificuldade, todos passando pela u- 
tilização de pequenos programas BASIC 
que além de serem, na maior parte dos ca 
Sos, O suporte dessas rotinas, também 
servem de interligação entre elas, por= 
que todas as vezes que tenhamos de intro 
duzir dados, ou simplesmente intervir no 
teclado, para a normal sequencia dum pro 
grama, terá de ser feito através de li-. 
nhas de instruções em BASIC. 


Falemos primeiro do processo mais vulga- 
rizado (as instruções REM na primeira er 
nha da programação BASIC) aonde ficam re 
servados os caracteres necessários às 
instruções (USR), à introdução de dados 
ou ainda de textos, tabelas, etc. 


Muitos de nós já sabem por experiencia 
que escrever uma REM muito extensa se 
torna fastidiooso, pois À medida que es- 
ta cresce o processo fica mais lento. 
Como teremos de trabalhar com REMs muito 


extensas, vamos elaborar um programa moni 


tor cuja primeira rotina tem por missão 


criar (grandes REMs, a partir duma inicial 


por nós elaborada, 


1.2 - Programa Monitor -Rotina 1 
Este programa terá mais rotinas para ou- 
tros fins, mas por agora escreva: 


o - 22 A O Ra 


1990 PR AT 2,6; "PROGRAMA MONT 


105 PRINT LS 11, “INDICE 


119 PRINT '1- RESERVA DE ESPR 
“INDIQUE NUME 


' : — Qi 
202 PRINT AT 20,8; 
RO DA ROTINA” 
205 INPUT nN 
219 CLS 
&15 GOSUBE 10%%4 -N51900 
CA. S 


g2s LIST 


9920 PRINT AT 2,0, "DIGA QUANTAS 


REMS IGUAIS TEM 7” 


3902 INPUT WN 
3904 PRINT í,.,CDISA CC MUMERO DE 


CARACTERES /ZREM *º* 





INPUT 





la LET uia (RAE) 4 

Seia ET o dENS GB) náo O 

S £ THEN GoTOo 99 
9918 LET C=INT (B-256) E 
3920 LET Toa GoSS! -E) 26h 
99822 POKE I+2,D 
3924 POKE 11+3,€ E A = 
9925 FOR A=I TO T-1 E = 
39528 Eai A=118 THEN. PoKE. A, = 


s954 BOR N=I45 TO A-a Sos SG 
3934 POKE N,27 Sd 
NEXT N Es == 
3938 RETURN - == dos & <uF e ES 
9999 POKE=I+42,B---*- =p Sã. E ES 
9982 GOTO 9926: Ls... ss 


E» 
! £ r 
é 





Grave esta parte do programa antes de 
continuarmos, pois se houver algo er= 
rado pode ter problemas. 


28 ETAPA —- ESCREVER A REM 


Na linha 20 do nosso programa , temos 
uma REM com 20 caracteres, Estes devem 
ser rigorosamente contados para que o 
programa possa funcionar bem, 

Chame a linha 20 com os comandos SHIFT 
+ EDIT, e passe o número de linha para 
21, fazendo-o entrar no programa com 
NEW LINE. Repita esta operação por em 
xemplo 5 vezes, e ficará com E REMs de 
20 caracteres cada, com os números de 
linha: 20, 21, 22, 23, 24 e 25, 


RUN o programa e responda aos dois pS- 
didos com a informação (5) e (20) rese 
pectivamente, Aguarde uns segundos e 
poderá verificar que as 6 REMs foram 
transformadas numa única, com o número 
de linha (20) « com cerca de 6 vezes o 
tamanho das anteriores, 


Note que a rotina está preparada para 
responder a outros valores introduzie 
dos, e muito rapidamente, Vamos ver 
porquê, 


RESUMO TEÓRICO SOBRE A ACÇÃO DA ROTINA 1 


Vamos supor que tem duas pequenas li- 
nhas BASIC, como se seque; 


JO REM 
20 REM 


Estas linhas ficam armazenadas na me- 
méria com os seguintes códigos: 

O, JO, &, O, 234, 118 

CO, 20, 2, O, 234, 118 

O primeiro byte fica na localização 
16509 e o último na 16520. 


Os primeiros 2 prtes duma linha BASIC 
determinam o número de linha, que co- 
mo todos sabemos pode ir de , él a 
9.999). A distribuição do número deci 
mal, pelos 2 bytes Uiades. É encone 
trada pelas seguintes expressões mate 
máticas: 


INT (N/256) = y ( 12 byte ) 
INT (N=eYx256) = x ( 2º byte ) 


ou a inversa 


yx256+x = N ( número ) 


Os dois bytes seguintes representam o 
número de caracteres dessa linha, sen 
do o primeiro o menos significativo 
(baixo byte). A distribuição do númess 
ro pelos 2 portes Tege-se pelas empres 
sões matemáticas já apresentadas. 

O byte seguinte é a instrução do sis- 
tema BASIC (no exemplo apresentado é 
a instrução REM). A fechar a linha en 
contramos a instrução NEW LINE - códi 
go 118, 

Se nós quisermos transformar estas du 
as linhas (a 10 e a 20) numa única, 
teremos de introduzir na localização 
16511, o código 8 ( a nova linha pas- 
sa a ter uma extensão de 8 caracte- 
res), e eliminar a instrução NEW LINE 


em 16514, introduzindo o código de ou 


tro qualquer caracter, A nossa rotina 
1 executa precisamente este trabalho 


/ 
para o número de REMs e caragdteres so 


licitados 


1e3 - Programa monitor (Introdução de 
dados ou mensagens na REM) - 
- Rotina 2 


Uma vez"fabricada"a grande REM com a 
ajuda da ROTINA 1, ana agora aproxi 
madamente 120 ray à nossa disposi- | 
ção, para lá introduzir e que quiser- 
mOSe 

Para o nosso primeiro ensaio, vamos 
lá colocar uma pequena mensagem, com 
a finalidade de a reproduzir no écran 
numa dada sequencia de programação. 

A introdução dessa mensagem na REM é 
feita através da seguinte rotina; 


115 PRINT +x,'"'2D- 
EM 


R 
Eai PRINT 


980201 PRINT ,, 
XTENSRO DA RE 
39842 LET x=1651d4 
39803 PRINT ,, 
EM, PRIMA <x*> 
33884 INPUT Ag 
q328 


(CODIGO 216) 


FOR N=1 TO LEN AS 


q3eRa o XX, am q R$ tn 

39810 IF N=L ÉN Ag THEN GOTO 95208 
G812 PRINT CHR$ CODE Ag$(NJ; 

93814 LET X=Xx391 

G518 MEXT N 

G38ia GOTO sas 

a528 IF CODE Ag(N)=216 THEN RETU 
2321 PRINT a CODE R$ EN) 

G3e2c2 GOTO 9814 


Faça rolar o programa e seleccione a ROTINA 
2: Como primeirc ensaio vamos introduzir na 
KEM uma pequena mensager., cujo arranjo em 

grupos de 32 caracteres terá de ser ensaiado 


para não haver separação imprópria de pala- 


vrasSe 


"PROCRAMA 1 — ESTA MENSAGEM SERA INTEGRAL 
MENTE COPIADA PARA O ECRAN, POR ACÇÃO DU- 
MA ROTINA EM BASIC, 

PROGRAMA 2 - A MESMA ACÇÃO COM UMA ROTINA 
E CODIGO MAQUINA, 

PROGRAMA 3 — TRANSMISSAO INSTANTANEA DE 
UM BLOCO DE MEMÓRIA POR UMA INSTRUÇÃO 
LDIRo mx” 


Depois de ter passado este texto para a REM 
escreva a seguir: 


ROTINA COPIA REM: 
6514 


HL = 


NOTA: Os utilizadores de máquinas sem exten 
são de memória terão de começar por apagar 
parte do programa, para poderem continuar a 
experiencia. Posso sugerir que apaçuem as 
ROTINAS 1 e 2. Façam do vosso gravador a ex 
tensão que lhes faltas. 


+ 
(continua no préx, nº) 


METER DADOS NA 
« "INTRODUCÃRO DE DADO 
ti ULTRAPASSE A E 


“PARAR FIM DA MENSASG 


) 





«On 





23335 ===" .3s=5]" 
SECÇÃO DO LEITOR 








SD 
+ «o SUGESTÕES, « o COMENTÁRIOS, o «OPINIÕES. o o DÚVIDAS o o SUC ESTÕES. « e COMENTÁRIOS. o e OPINIÕES. o e DÚVIDAS 
SS eee ee 


“l-(co« JA revista MICRO SYSTEMES nº26 
publicou um artigo sobre a memória 
RAM de base (1lk) do ZX21, a qual po= 
deré ser de 2K, fazendo apenas a se 
guinte modificação: retirar os dois 
integrados *2114” e substitui-los por 
um; o "4802” — mudança essa que pode- 
rá ser feita, pois já foi prevista pe 
lo fabricante e o circuito impresso 
assim o permite, Onde será possível 
adquirir este circuito integrado ,peis 
os estabelecimentos de venda de compo 
nentes electrónicos (no Porto) não o 
possuem? 
"2=Esta montagem depois de realizada 
e com o módulo de 16K ligado, passa a 
ser de 17X a memória disponível no to 
tal ou mantem=-se em 16K? 
“3-Haverá a possibilidade do ZX81 fun 
cionar a cores? (ex: mudar o modula= 
dor ) 
"4-Se fizermos, depois de introduzir 
mos no ZX81 um programa qualquer; 

9000 SAVE “ABCDE” 

9010 RUN 
e depois; 

GOTO 9000 (+ NewLine) 
é gravado o programa em cassete e fei 
to RUN automaticamente, Em seguida 
constata=se que a última letra do no- 
me do programa na linha 9000 passa à 
ser inverso (neste caso a inverso E)» 
A pergunta é; porque acontece isto?” 


EDUARDO JORGE / Porte 





O CLUBE Z=5) responde: | 


1-A substituição pode ser feita com a 
memória RAM 4118 (lkx8bit), que o im- 
portador da SINCLAIR possuí normalmen 
te. 

2=Quando o módulo de expansão da memó 
ria está ligado, deixa de funcionar a 
memória interna de 1k (2K no TI1000), 
e portanto ficará com 16K para utili- 
Zar. 

3-“Temos conhecimento de que em Ingla- 
terra existe um Inteaface para TV cor 
mas pensamos que É pouco mais que a 
simples mudança do modulador. 


4-O0s autores do projecto da ROM do ZX81 
entenderam que deveria existir um sinal 


representativo de que a gravação tinha 
terminado. Desse modo, arbitraram que 
quando a gravação fosse efectuada, o úÚl 
timo caracter do nome do programa ficas 
se em Inverso Videos 





. Mais 4 LIVROS À disposição de CLUBE 2-8] ? 


-" COMPUTER PUZZLES; FOR SPECIRUM & ZX81”, 





Lan Stewart & Robin Jones 150800 
-"INTRODUCING SPECTRUM MACHINE CODE”. 
300800 


-"ILLUSIRATING BASIC (A SIMPLE PROGRAMMING 

LANCUAGE)”, Donald Alcock 300800 

-"30 HOUR BASIC - ZX81”, Clive Prigmore 
450400 


(Estes livros podem ser enviados à cobran 
ça, em fotocópia, pelo preço indicado) 


- 


= JOSÉ LOBO (Porto) está interessado na f 


compra de um ZX81 usado 
Telef; 488946 


TS SS 


«e CARLOS MOITA (Porto) vende um ZX81 


Telef; 493762 e 
400584 


Por razões de vária ordem, entre as quais 

o atraso na saída do boletim n26 que se re 
percutiu na execução deste, não nos foi a= 
inda possível responder a várias cartas re 


cebidas, Aos que esperam respostas, as nos 
sas desculpas! Oportunamente escreveromos , 
publicando as respostas no próximo número 











PQ en man TO pato E a 
Sxdl PROGRAM! "SNTINO DAL EO | ey Autor: FERNANDO PRECES/Sacavém 
EM PROGRAMA TRAD.E MODIF. É 51240 INPUT 
OR ALMEIDA PRECES. EM 10/5/8282 = 160 IF A$="Êº THEN LET F=F+2 
2 REM 2 a - 3180 LET E=E-198€6 
O COSUB SODA 3199 IF A(G,F)<>1 THEN GOTO 533800. 
260 GO 3195 GOSUB 7500 
25 GOSUB 5880068 | 5200 PRINT “FOI ATINGIDO O “;r& 
| 56 GosuB 6959 — 5226 LET At=AL+1 ã 
49 GOSUB z020 | 5260 LET BtG,Fj=4 
| SG GOSUB 69560 39290 Ret 
2a COSUR 7EBQ RETUR 
180 PRINT ,, "QUAIS AS SUAS ORDE 3300 GOSUB 7588 
NS," | BBB5 LET BtG,F)=3 
120 PRINT TAB S;“SIRT",.TAB 12; | 53510 PRINT “ATENCAO. MNISSEIS... 
E INUESTIGACAO" ; TAS id;“2 - SOBRE NOS.” 
 QUIMENTO"; TAB 12;"3 - caonBaTe” 318 FOR G=1 TO 56 
| 440 INPUT D 5517 NENT G 
180 IF D<i OR D>3 THEN GOTO 146 - 3520 PRINT “O “;Zk; “FOI TOCADO” 
155 GOSUB 5959 3359 FOR G=1 TO 36 
| 164 GOSUB 18809+D 3355 NEXT G 
170 FOR U=i TO 30 — 3857 GOSUB 6950 
182 PRINT AT 26,5; " HEREE AT 28 "3340 IF RND>.6 THEN GOTO saca 
55; " -— 3369 PRINT “ELES TOCARAM-NOS, SI 
152 NEXT U ad R> 
326 PREN “as &; "HM PESoUISa EE 380 LET E E-100 RND 
1028 PRINTF. =E - * ; 
so ã 33990 RETURN 
| 1938 GoOsuê 7520 | 420 PRINT "O ";Z%;* ATENGIDO, S 
| IB4B PRINT "CURTO (7% GL,“ LONG | IR“ RE oe 
| & ALCANCE (2) SIR? E 3450 RETURN 
1858 INPUT K 3500 GOSUB 6950 
1080 LET E=E-10+K 3805 SCROLL 
rasa GOSUB. 6950 3810 PRINT “BANCO DE ENERGIA ESG 
22 IF K=2 THEN soro 158e == “OT Re se. 
Ti2o IF A(B+1,C)=1 OR AtB+1,C+1) | 3815 SCROLL. 
J OR AtB,C+1i=1 OR A(tB-1,CÍ =1 O | 3820 PRINT “FORAM ABATIDAS “;AL; 
'/ R A(B-1,C-21/=1 OR A(B,C-i)=1 OR " NAVES" | 
| AtB+1,0-1)=1- OR AtB-1,C+1)=1 THE | 3559 SCROLL 
| No PRINT Z8;". «a MOS PROXIMOS | 3860 PRINT “NESTA MISSAO” | 
| -—s 3870 SCROLL 
irão FOR T=1 TO 158 | F550 PRINT “GB SEU CORGNDO VALENDO 
1135 NEXT T "INT tRL/6*1005;% PONTOS. =. 


11480 RETURN lc 
1509 GOSUB 75800 +. 


iS2o PRINT AT 15,0; “DIRECCAO: N- 
Ls S - E, E-3; E 
1525 PR TAB 8;" (INTRODUZA O N 





; “600 IF “N=3 AND - == 
E a “ate, C+2] =1 “THEN: 


ces IF N=4 AND A(B,C-2) =4 men 


Z=41 
| TESo GOSUB 
| 840 PRINT 


=t> 


750 


o 
“INFORM. PESO. 


e im mit - — —e— 


FOR TE TO” SG. = 
NEXT 5 25 
RETURN 

LET E=E-Sso - 
LET B(B.C) =6 
LET B(B,C) 

PRINT “BD TREÉCAO 
INPUT 2º 

LET 





“4550. 
| 1695 
| 1780 

2220 





(N7/5) 7" 


a 
“NOVA COORDENADA 


"ais PRINT TAB 12; (E/W)/2” 
' 2180 INPUT Ag 
| 2200 LET C=C-1 
| 2220 IF AS="E”“ THEN LET C=C+2' 
2240 PRINT “NOVA COORDENADA “;B; 


IF A(B,C)=1i THEN GOTO 3509 - 


J = 


“; Bj 





SS 
ep “DIRECCRO CO LAISER 
Fa ne 


JO04D INPUT AS 

s060 LET G=B-1 

“050 IF A$g='5" THEN LET C=5+2 
s102 PRINT TAB 12,' za 


(E / LJ 3 Do 


E. aLca- 
| 1469 IF Z=% THEN PRINT "POSITIVA 
1680 IF Z=6, THEN PRINT NEoRT TUR 


t 









E: 


| 
E, 


3550 GOTO 55095 
CEDO GOSUB S95S = Sur A 
5510 FOR T=1 TO 188 

ES2o PRINT ET 15,8; “a sua nave E: 
REATEU HA MEME “TE 
SS40 PRINT ET 15.8; 


2.8 8 SE. quis 
E Eae OE RA Ra 


= Ensaa dae > 











= “ve. 


pas 


NEXT Es Ap 
SS6S PRINT "SOS... COMBATE. cornea 
| RSEBnE Ds S086%. Sata = 
à ST == 
Esse PRINÉ RE 19,070 o Es 





a, 
11.5 ! 


” » 
- a 


gese popm pras er 
2980 PRINT AT 2, 14; “ENEnOr Son: 
7838 IF É<i THEN coro ases ; 
7840 IF AL>8 THEN PRINT AT 3 

“NAVES ABATIDAS";AT 4, sdasiça RA 


: AL 
7258 PRINT AT 7,14; CUOCE ESTAR EM 
7978 PRINT AT 8,14;* 
PR7S PRINT AT S,14; “NO 
7858 gases 
PRINT ” SECTOR” 
AT 12,8; | 
sé da E Css 
LET R=INT tANoas+ = SS 
IP R=8 THEN PRINT 
[TF R=t THEN PRINT 
IF R=2 THEN PRINT 
“FÊ g=a THEM 
IF AR=4 THEN 


Em 
= 
— 
ea 


T 
E RF OM 
o AME " ul Ç 
NC RR 


(To UMUR 
"pHENDy 
"SULA - 


KA 


| 85 19 
8 “PROCrVON"; 
360200 — ad 9,29 RAND O<48 THEN PRINT - 


PROCKAMA “13” — Um jogo para c Z 
sm THEM POINT e,” e; aa JO9O para o 4X61 





8035 IF no THEN PRINT a. = PMs Auter: FERNANDO PRECES .. 
Sosu TE Bro PI Ca THEN PRINT a : 
o tm pi oBREM PRDSRAMA TRAD. E MODIF:T 
8080 IF B(Q.PJ=2 THEN PRINT - 
8100 IF BtO/P)=3 THEN PRINT DOR it E dps Elz5-2880 
3128 IF Aro, Fi =& FHEM SSESMT S GOSUB igee de CA gõO E 
- pre TF 188 LET Ag="+ | E SE 
Sem MEnT E Es 105 LET N=8 E de 
II) PRI Ni: = 118 LET A=a a e = 
8228 PRINT * 1234567890" 113 LET B=& 
8492 RETURN 122 LET C=8 ; j 
SS LET Q=-R4C = 12S LET D=Qa SE 
3540 IF 0+<18 THEN PRINT “ANTRRES | 138 LET T=14 - E 
a DA 135 LET xX-=12 a age 
asso Ir 929" ANDO Q<28 THEN PRINT O - 162 LET R=INT (RNDs381 E 
j 178 PRINT e 
8580 IF 9>19 AND 0<38 THEN PRINT: eo seno. 2i.Riho 


Soma o R=1 

















EE ao yr E 2 
To pe “== ge 


“VES | | 205 IF N=180 THEN: LET Ag=]A 
9526 IF 9299 AND O:Sa THEN PRINT 28 CET Eb pise 
“CANDPUS “iu | T =| 228 LET D= = à fra 
a a, Q AME Etr aee E 230 LET C= | “E — FEndsAk 
B869 IF q)59 AND Q<78 THEN PRINTO) SSo LET ASR == SE 
— "SASITTARIOSTD | a dass ses 
9598 IP 9>59 BND Ds00 THEN PRINTER. Soo DRINE HE SiS Sim ma Es 
| 2700 9278 AND 9:98. THEN PRINT oTó sda “a e A E a 
8728. IF 0589 THEN PRINT “BETELGE a pe de z THEN dETM= É 
946 RETURN E a ds 285 IF X<=2 THEN LET. CX npoo Eis 
Sds soe Cp a aU 0] [296 dn iNserpetree hit 
aãe FER a E ais E 2ss X>-34 THEN" Le º 
9910 DIM: AtiQ, Io sado ga 
9020: DIM Btig, 210) E = SEC] Seo Goro 1 SE 


2 es DR pd seda O died 


— 


o 
pa 
Fo 
999059 | 
Ei 
=d 


g* nana 


<x 


dd 


Si 


E 


A MDUDO D 


E <. 


S38a, TF E». 
ZE="URERKT 
a528 IF Es». 
XIANS Cr 


| 23482 LET. E= 
9345 SLOU 


e MU q qu ge 


e e mm ma 


» PST 


9349 RETURN 
34002. PRINT." 


9418 PRINT ,,”"R SUR NAVE TEM DE ES As 
PATRULHAR UMA: o sd 1838 Cras ua pd 


E P 
9450 PRINT 
MAS NAO LH 
9478 PRINT 


- LIMPE ESSA" 


34580 PRINT 
PONTUACAO. * 
3490 PRINT 
à POSICAO 
95090 PRINT 
E O (a) I 
9518 PRINT 


CcRO DE OUTRA“ 


, 2528 PRINT. 
RE. 


9538 PRINT. 
E SEMPRE OS 


DE SE MOVER 


| 25598 PRINT 


& COMECAR «* 


3588 RETURN 


ss "VOCÊ sasE aUE ESTAS: 
sas uoce + QUE SAO INV 
« SEUS ECRANS E SOMENT 
CSUISADOR OS DETECTA; 











INT: (RND+18+1) 0 Ee 













INTE (RNDELGS IS de aaa 528 PRINT AT 11/:X-1 SE 

EV ) mag pe - 587 PRINT AT 11,%- iene sapo 
FE 4 Rea Ses NEXT: Rs apa = 

s. s19 PRINT AT, 8) 9; s9CoRE=";N dA 

RECO - ege For 0=1 TO 260. - 

s.C SRS NEXT RES Pera 

B,Ci=2 s1a CLS iso es 

Bom SR ane ,SBS RUM 108 

SS THEN LET Z8="BRARK TERGIDES E aTagõer 

33 AND | E<.66 THEN LERE| Goo -PRINHOS.s SUNDAE 

66 THEN LET Z5="PoLLu 1618 PRINT (4 ana go as O 

1POB+20BB4RND o MOC A COR pe Esguenoa. ias memno es: 

RR 1215 PRINT RB A DIREITA.» 


1920 PRINT , +.“ PRIMA saNtss pr 
A COMECARO É ipdnei, 





PATRUÉMA ESPREEnE es 







e Sobre o programa “KECIME ALIMENTAR” ,JeFoCo 
(Página 10) 


Para o ZX81 (com extememória 32K-octetos) 





“Um equilibrado e saudavel regime ali- 
mentar deve obedecer a certas normas 
cientificamente estabelecidas. Aconte- 
ce, porém, que os calculos a efectuar 
sem serem complicados, são extensos e 
morosos, além de exigirem a consulta 
de tabelas apropriadas. Daí que os nu- 
tricionistas em geral se limitem a re- 
gimes típicos, mais ou menos estandar- 
dizados e simplificados. * 
A facilidade com que o computador ar- 
mazena dados fornecidos e a rapidez 
com que efectua as epsrações mais in- 
trincadas habilita-o a estabelecer com 
rigor uma ementa apropriada a cada pes- 

——s 


"DA DIRECCAO DEFINIDA 
"AREA E OBTENHA A Sup 
540 SINAL (+) INDICA 
"NAVE. INIMIGA ABATIDA- 
“DICA A ANTERIOR POSI- 
"OU SEURA CAMINHO LIV 
"NOUTROS CASOS UTILIZ: 
"PESQUISADORES ANTES 


2.2" PRIMA sb sa PAR - 


“» 


'soa e a cada caso. É essa finalidade 
'do presente programãs, 
'Em função do sexo e da idade (especifi- 
'cada até em meses, como será útil so- 
'bretudo para crianças pequenas), ele 
'começa por calcular a altura média nor- 
mal para Portugal; em seguida, entran- 
'do-se com a altura real, calcula o pe- 
iso ideal; depois, entrando-se com de- 
terminadas variáveis (intensidade de 
trabalho, tempo de descanso, tempera- 
tura média do ambiente),calcula-a enerr 
gia dispendida diariamente. 
'A partir dessa energia é que se vai es- 
tabelecer o regime - destinado a for- 
necer ao organismo as calorias gastas, 
'e isso não apenas na devida quantida- 
de (a fim de não engordar nem emagre- 
'cer indevidamente),mas ainda nas cor- 
rectas proporções dos principais nu= 
tientes: glícidos, prótidos e gordu- 
'ras - proporções que, a não serem 
observadas, podem originar várias do- 
jençasse 
Quem ignore o sentido destes termos 
pires pelo menos ficar a saber que gli- 
cidos (ou hidratos de carbono) são os 
nutrientes mais típicos dos alimentos 
farinaceos como arroz, batatas, massas 
pão; e prótidos (ou proteínas) são es 
nutrientes específicos dos alimentos 
de origem animal, como carnes, peixes 
ovos, queijos, e também abundantes nas 
'sementes de plantas leguminosas, come 
feijão, ervilha, fava, soja .... 
O programa apresenta cerca de 60 vari- 
'edades ide alimentos, conglobados nos 
seguintes grupos $ 
'Grupo L - Leite e derivados 
C - Carnes e ovos 
P - Pescados (peixes e mariscos) 
Grupo'4 - Produtos: améléseos - 
H - Produtos horticolas 
Grupo F Frutas 
Grupo D - Doces 
| Grupo G - Gorduras (lípidos) 
' Cada grupo aparece no ecran separada- 
| mente; o primeiro automaticamente, os 
outros, à medida que forem sendo cha- 
madas pela letra respectivas. 
Cada variedade de alimento, ou de pe- 
quenos conjuntos de alimentos idênti- 
cos, vem precedida de um número: esse 
número é que vai servir para introdu- 
zir no computador o alimento pretendi- 
do (é mais fácil escrever um número de 
um ou dois algarismos do que um nome). 
A quantidade de alimento introdus-se 
em gramas (que para líquidos corres- 
ponde mais ou menos a mililitros ou 
centímetros cúbicos). 
Um exemplo: Suponhamos que se preten- 
de utilizar por dia 150 gramas de pdo. 


apa 


d 2 mo e o 
sra caido o» 


— — 


O pão aparece no grupo A (dos amiláce- 
os), e temo número 25: entra-se com 
Ed - 4 

os números 25 (número de referência do 
pão) e 150 (os 150 gramas de pão que 
estabelecemos) - devendo estes dois 
números ser separados por um ou mais 
espaços - mas fazendo uma sê entrada 
para os dois. Neste caso seria:25 150 
(e Newline), | 

De notar, mais uma vez, que as quanti- 
dades a introduzir devem ser em prin- 
cípio quantidades diárias. Quem use 
determinado alimento apenas umaou duas 
vezes por semana, deverá previamente 
calcular a quanto isso corresponde por 
diãece 

Certas pessoas poderão sentir alguma 
dificuldade em ávaliar o peso dos ali- 
mentos. Para lhes facilitar a tarefa, 


vão aqui algumas referências: 
' Uma colher de sopa bem cheia (acogula- 


da) de arroz cru, feijão cru, açucar 
e coisas semelhantes, pesa 20 gramas; 
um pão, SO gramas; um ovo, uns 60 gr; 
uma peça de fruta média, de 100 a 150 
gr; uma batata média, uns 100gr; um > 
bife ou uma posta de peixe, 150 a 200 
gr; uma chavena almoçadeira de leite, 
uns 200 gramas .e. sita pci 
Como não é de esperar que logo à pri- 
meira tentativa se obtenha a ementa 
equilibrada, é conveniente ir toman- 
do nota das entradas que se vão fas 
zendo. Assim torna-se mais fácil cor- 
rigir excessos ou defeitos: uma nova 
entrada de qualquer alimento anula 
'a entrada anterior do mesmo alimentos 
De qualquer grupo se pode tomar uma 
ou mais variedades de alimentos (ou 
' nenhuma ...); e em qualquer altura 
' se pode passar a outro grupo, bas= 
tando premir a letra respectiva 

(e NL); e também em qualquer altu- 
ra se pode saber como vai a soma 

dos nutrientes, premindo-se S(s NL). 
Como curiosidade, o programa tam- 
bém indica o preço total dos respec- 
tivos produtos no mercado (preços 
correntes em principio de 1983). 

Os valores finais são arredondados 

a +5 (ou +10), mas os valores par- 
ciais com que o computador opera, 
esses são o mais exactos possivel. 
Uma vez estabelecida a ementa con- 
veniente, para recomeçar, destruin- 
do as variáveis introduzidas, pre- 
mir FR (e NL). 

Antes de algumas entradas, enquanto 
no ecran se projectam instruções, 

há PAUSAS, gue se podem abreviar pre- 
mindo qualquer letras 

Bom regime . alimentar, boa saúde e 


boa sorte!” JeFeGo / Braga 





pos 
(s 


Zk 82 


PROGRAMA “"RECIME ALIMENTAR? Autor: JeFeGo / Braga 


o 


“Ab PRINT “PARA GOZAR DE EOA SALDE A PARTIR" 
11 FRINT e JM EQUILIBRADO FEGIME ALIMENTAR" 
12 PRIMT " RESPONDA A TODAS AS PERGUHTAS" 
13 PRINT o" QUE O COMPUTADOR LHE FORMULAR 


15 PAUSE SEO 
16 POKE 16437,205 


18 CLS ; 

21 PRINT "OQ SEU SEXO? cmo om) Pol 
25 INPUT 3& 

26 CLS 


27 PRINT “ANOS COMPLETOS DE IDADE?" 
38 IMPUT IA 
a1 CLS - 
a2 PRIHT “"ALEM DOS ";IA;" ANOS, GUANTOS MESEST" 
49 INPUT IM 
41 CLS 
42 LET I=IR+IM-12 
3 IF I<=26 THEN GOTO 47 
44 IF S6="M" THEN LET Al=17S5 
45 IF Só="F" THEH LET AI=162 
46 GOTO SB 
47 IF Sg="M" THEM LET AI=INT CSIN CC IHHI, 1+20)/20)/4263-88)+.5 
48 IF S8="F" THEN LET AI=INT CSIN CC IXXHI, 1+202/30)H229-67D+,5 
51 PRINT "4, DEVERIA MEDIR ":;AI;" CENTIMETROS" 
s6 PRINT ,,., "GUANTO MEDET (EM CENTIMETROS)" 
59 INPUT A 
EB CLS 
61 IF I<=2B THEN GOTO 78 
62 LET Ilsl 
62 IF 1>SB THEH LET I1=58 
SE IF Sg&="[9" THEH LET P=INT CCCA-IPSDHA/225+ 11-20)%, 2+ESDHIDA. 53/10 





67 IF S$="F" THEN LET P=INT CCcA-I6GZIKA-24B+C 112008, 18+559%H10+. 52218 E) 


68 GOTO 72 
7a IF Sg="M" THEM LET P=IHNT CC TAM CCA+rIDID/210)K16, 2-9, 42H1D+. 52/10 


71 IF S$="F" THEN LET P=INT CCTAM CCR+BZ2D/180)2%13, 35-6)2%10+, 59/10 


?S5 PRINT "OQ SEU PESO ""IDEAL"": CiP;O KG” 

Da PAUSE So 

84 POKE lA43T7,235 

st CLS 

196 IF I<=12 THEM LET KE=INT CcPECIILE-3, TSRIOD+. 5) 

102 IF I>lig AMD Ic=25 AND s$="M" THEM LET K=PHC 320188121. 339+18,5) 


104 IF I>12 AND I<=25 AND S$="F" THEN LET E=PHCGBSTHECI 1. 1395 
106 IF I>25 AHD S&="M" THEN LET E=P&cC BB SOR +25 9 
188 IF I>25 AND S&="F" THEH LET K=PHCBO-SOR I+132 


135 PRINT "VALORIZE, HUMA ESCALA DE O A 10," 

136 PRINT "A INTENSIDADE DO TRABALHO DIARIO” é 
158 INPUT T 

151 CLS 

155 LET E=K&CI.1HHKCT-52) 


1) 


164 PRIHT "QUANTAS HORAS DE OND” 
ira INPUT E 

ri LAS 

172 LET K=K+SBECC 2I-ROo-16 4 

17% PRIHT "TEMPERATURA DO AMBIENTES 
17S INPUT TA 


Irê CLS 
PP LET K=INT CCk+C15-TADF20)/10+, G9%H10 
181 PRINT sssstvo "NGASTA"" DIARIAMENTE CERCA DE" 


182 PRINT K;" CALORIAS BIOLOGICAS CKECAL O," 
183 FALISE 408 
184 POKE 16437,255 


185 CLS | 
187 PRINT "VAO APARECER GRUPOS DE ALIMENTOS" 
188 PRIHT ,. "LUMA LETRA IDENTIFICA CADA GRUPO;" 


189 PRINT "UM NUMERO IDENTIFICA O ALIMENTO, * 
| 194 PRIHNT ,,,."PREMINDO A LETRA APARECE O GELUPO” 
191 PRINT "CPREMINDO SS, FAZEM-SE AS SOMAS, * 
192 PRINT "PREMINDO R, VAI-SE AO PRINCIPIO)” 
193 PRINT ,,,.."INTRODUZ-SE O NUMERO DO ALIMENTO! 
f. 194 PRINT "SEGUIDO DE UM INTERVALO OU DOIS" 
195 PRINT "E DA QUANTIDADE DIARIA EM GRAMAS” 
eg2 DIM AÇÕI, 4) 


204 DIM BE S3,42 303 LET HC 10,3)=.2 
pr DIM EÇ5I3)2 º | 384 LET AC 10, 4)=400 
211 LET A(1,1)=3.3 311 LET AC11,1)=20 
212 LET ACIi,2)2=3,5 312 LET AX 11,253=5 
213 LET H€1,3)2=4,8 313 LET A(11,35=,2 
214 LET MK 1,9)9=28 314 LET H€11,9)2)=150 
221 LET A6(2,12=3.6 sei LET MC 12,1 2017 
222 LET A(2,2)=,5 | 322 LET AX 12,2)=25 
223 LET HW 2,3)2=4,3 | 323 LET A(12,3)=,2 
224 LET H(2,4)2=20 324 LET AX 12,492=250 
231 LET P(3,12=9 331 LET FX 13,1)=28 
232 LET 63,2 )=28 332 LET FC 13,2)9=4 
233 LET 863,32)=3.2 SIS LET RC 13,3)m,2 
ea4 LET AC 3, 4I=2SB 3394 LET R(13,9)=28B0 
241 LET AC 4, 1 2=26 | 341 LET HC 149,19=17 
e 242 LET H64,22=25 342 LET FX 14,2)3=12 
v 243 LET H(4,3)7=2 343 LET A€14,3)=,2 
244 LET Aí 4, 4I=300 a44 LET RF 14,972=2538 
251 LET H65,19=25 SS) LET NC 15, 1 2022 
2s2 LET HC5S,2 9=3H 382 LET FX 15,2 )=6 
253 LET R65,3)2=2 — 353 LET M€ 158,32=.53 
254 LET ACS,42=520 354 LET H( 15,4)=250 
261 LET FE, 1 )=2B 261 LET Rc 16,19=9 
262 LET HCE, 2 9=2 Ç = 
263 LET AC6,3)=1 apto qi sor gi 
264 LET ACE, 4 I=406 364 LET HC 16, 4)=408 
271 LET ACP.12=3.5 371 LET KI? 19=28 
ere LET ACF, Eds 372 LET AC17,2)=12 
273 LET HC7,3)=4,5 373 LET HC17,3)=,1 
274 LET AC7, 4)9=259 | ara LET ACI7,40=350 
281 LET ACB,1)2=,93 381 LET AC 18B,1)9=1B 
eBe LET ACB,2 5=85 382 LET AX 1B,2 236 
eB3 LET ACÇB,3)=,5 383 LET HC 18,32=,1 
2B4 LET FCEE, SI=400 384 LET AC IB, S)=308 
291 LET MW 9,1)=12 331 LET A0139,19=17 
292 LET (9,2)=12 392 LET ACIS,2 3] 
293 LET M9,3)2,5 393 LET AC19,2)=,1 
294 LET MC 9,49=120 394 LET HC 14,4 9)=5BB 
381 LET FC10,19=20 4sa1 LET FX 28, 19=4A 
382 LET Ac 18,2)=10 402 LET Hc 20,2)=1 


| - 
Dener eita ita di tn sn Cedo Cao ii 


da 





ões [8 o E sa Ui 


12 


dia 


411 
412 
413 
414 
421 
422 
423 
424 
431 
432 
433 
434 
441 
443 
443 
4454 
451 
452 
45:3 
454 
461 
SE? 
453 
464 
471 
472 


43 


LET 
Lê T 
Ea 1 
LET 
LET 
LT 
LET 
LET 
LE 
LET 
LET 


LET 
LET 


o La 


Lie T 
RA 
LET 
LET 


3 LET 


E 
LET 


E: MEI 


hole T 
LET 
LET 
RA 


AÇel,392=,3 
RC21,92=358 
Acaz, 1 )=25 
Re Z2, 2 )=26 
Re o2,3)4m.1 
Ae SZ, IS I=400 
AC 23, 1)=10 
Hó 23,2 421 
AC ZOI, SI 
Atos, S)=250 
Ac cs, 1)9=18 
Hi 2d, E ma 
ACos,34=.1 


He 24, 4 2=1 500 


FAC 2S,1)9=8,5 
Aces,esml,a 
A 25,3)=55 
ACS3,49=108 
HE 26, 1 2=6, 5 
FX 26, 2 4=1 
FC 26,3 )=80 
AC ZE, 4 =43 
Acer, 1)9=6,r 
Hi cr,2 )=1 
AC or”, 3 )=80 
AC2r, 4 2=50 
Ares, 1)=2,2 
Ares, ci=,] 
Ac 2s,32/=18 
Fica, 4 )=25 
RC 2oI, 1 )=22 
Age, 2)=1,5 
AC ZI,32=58 
AC OI, 4 p= 
AC sa, 1 2=4H0 
AC IO, E =. 
AC 3H, 3 2=3H 
Río 20, 4)=120 


Ac 31,1 1=24 
AÇ31,2)=,1 
AC31,3)=53 
AC al, 4 )=7S 
AC 32, 1 )=27 
Ac 32,2 j=47 
Ac 32,3)=15 
Aí IP, 4)=150 
Ac 33,1 1=3 
RC 33,2)=,2 
AC 33,3/=3 
AC 33, 4260 
Ac 34, 1)=2 
Ae 34,272=,3 
Hé 34,3 1=6 
Aí 34,4 1=88 
AC as, 1)=4 
Ac as, 2)=,1 
HC SS, 3 = 
AC CS, 4 1290 
AC 36, 1 =. 7 
AC a6, 2 1=, 


Da 
Da) 
JJ 
A) 
dd 
681 
Elio 
683 
ES 
611 
6l2 


614 
621 
E22 
623 
624 
631 
632 
633 
634 


43 


BEL 
A6&.3 
654 


rd 


Ú 


SST AROADEHARRADNRADRA Mm 


SSD DLDDODDD D+ 
biitim Biyio-sym BoA 


Ra 
LET 
"aj 
LET 


Rx 
LET 
LET 
LT 
LET 
LEI 
Ba 
ET 
LET 
LET 
LT 
Le T 
LET 
e 
LET 
LET 
LET 
LET 
o T 
LT 
LET 
LEI 
Rai 
he T 
o) 
LET 
LET 
Rx] 
Aedes À 
LT 


"Ai 
te 1 


LET 
LET 
a 
o T 
ET 
Lt T 
Lite 7 
LET 
le T 
A 
LET 
LET 
LET 
LET 
LT 
LET 
LET 
Lt T 
LET 
LET 


& LET 


LET 
ET 
LET 
RXj 


He 36, 
He E, 
He ar, 
ACIr, 
He gr, 
AO ar, 
Rea, 
HC aIB, 
Ae aa, 
HC 38, 
AC IA, 
He 39, 
FU IP, 
MC IG, 
Rc SA, 
Hei 4a, 
HC 4, 
Hi GA, 
Hc 41, 
RC 41, 
Real, 
Hc 41, 
Re Sa, 
Caso, 
Hedge, 
AC Se, 
Riga, 
Hc 4a, 
AC Sa, 
AC SS, 
Re das, 
HE 44, 
He 44, 
He 44, 
AC ds, 
[e AS ds 
Hi 45, 
HE SE, 
Hc 46, 
AC 46, 
Aí dSE, 
[e LR 
Ac dr. 
Aedo, 
AC 4”, 
AC SE, 
AC SA, 
AC SA, 
He sa, 
Re gpa, 
He fra, 
RC ga, 
RC 4a, 
He SA, 
Me Sta, 
ACE SA, 
He SH, 
COI; 
PC OA 


O OA 4 4 


He 1, 
RC e, 


Há, 32. 


3 JE 
4 )=5 
1 =] 
is e 
E Rd 
4 I=5 
1 2=]3 
A Ls 
3 j=12 
4 )=8P 
12=1 


so ds 


SI )=3. 5 


4 4=58 
1 4=1 
EI e 
dd 
4)=88 


1 )=,:35 


O dE, 4 


3 2=14 
4 2=50 
13)=,.8 
E Eu 
nd dl 


4)=75 


1)=, 75 


Ez. 2 
a =103 


4)=1080 


19=,5 
2 d=1 

II=18 
4 =" 


! 


* Wi 
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de Mel STR SR RÃ ed E SS 

i! 

toa 

8 


fu + E 
E nd O RR a 
o B 


E: 


S 
S 


A 
ty 
E 


"es 


LET 
LET 
LET 
LET 
LET 
LET 
Ee 7 


LET 
Fai 
LET 
LET 
LET 
LET 
Lt 
LET 
Eta F 
LET 
LET 
let 1 
31 
LET 
LET 
LET 
LT 
LET 
LET 
as 
EE) 


CET 


AÇS2,3)=60 
Hé 32, 4 2=400 
AÇS3,1)2=12 
Aí 33,2 1=6 
HC 33, 3)=80 
ACS3, 4)=158 
Ac S4,1)0=18 


AC S4,2)=1.5 
AC 54, 3)=75 
H< 54, 4)=358 
AC 55,1)=.2 
RC55,2)=.5 
HC SS, 3)=65 
HC SS, 4 )=400 
ACS6,1)=]1 
HC S6,2)=1 
HC SG, 3)=7B 
Aí 56, 4)=200 
ACS7,1)=. 01 
AC S7,2)=108 
AC 57,3)=.01 
HC ST, 4 I=300 
AC 58, 1)=.81 
He 58, 2)=1 08 
Aí 58,3)=,81 
HC 58, 4)=189 
HC 59, 1 im, 1 
FX 59, 2 )=85 


ACS5939,3Im, BI 
Hé SG 4 =P 


7 RO 


PAUSE 


LAH 


PÚOKE 16437,255 


CLS 


9 


380 FRIHT 
381 PRIMT 
382 PRINT 
383 PRIMT 
384 PRINT 
85 PRINT 
385 PRINT 
387 PRIMT 
988 PRIMT 
889 PRIHT 


13 


"GRUPO | - LEITE E DERIVADUS” 


Re 


LEITE DE YACA CESHATADO”" 


o 
"a 
“4 
m 
"e 
a 
a 


Er. 


950 GOTO 1008 


BP1 CLS 


o PRIHT 
93 PRINT 
94 PRIHT 
895 PRIHT 
96 PRIHT 
- PRIHT 
- PRIHT 
59 PRIMT 


ga, PRIMT 
6“ PRIMT 


+ 


- LEITE DE VACA CINTEIRO)” 


QUELJO CASEIRO" 
QUEIJO TIPO FLAMENGO" 
QUEIJO GORDO" 


QUETIO MAGRO" 
TOGURTE 
MANTEIGA" 


GRUPO SEGUIMTE: EC” 


“GRUPO € —- CARNES E OVOS" 


"18 
ado (6 
ed 
"13 
"14 
1.3 
“16 


RE, 


ae GOTO 1088 
903 CLS 


ag4 PRINT 
SAS PrRIHT 


ME PRIMT 
07 PRINT 


28 PRIHT 
JS PRINT 
18 PRINT 
11 PRIHT 
12 PRINT 
13 PRIHT 


4 


q - OVOS €CADA OVO, SO À GO G2” 
VACA” 
FRANGO" 
PORCO" 
COELHO" 
CARHEITRO” 
FIGADO” 
SALSICHARIA" 
GRUPO SEGUINTE: Pr 


"GRUPO P - PESCADOS " | 
ass "17 — PEIXE GORDO CATUM, ENGUIAS" 


“13 
ad Do. 


"29 
"21 
H aa 
" Po 
"24 


dA ds 


314 GOTO 1606 


15 CLS 

E PRIHT 
17 FRIHNT 
318 PRIHT 
31 PRINT 
120 PRIHT 
21 PRIMT 


Neraifragom Elo 2º 


22 PRIHT 
22 PRIHT 
“ PEIHT 
25 PRIHT 


J 


PEIXE MEIO GORDO cCSARDIMHA,.","CAVALA, SAVEL 2" 

PEIXE MAGRO cCPESCADA, FANECA", "RAIA. «a o" 

BACALHAU" 

POLVO OU LULA" 

PEIXE DE CONSERVA EM OLEO" 

MARISCOS DE CONCHA" 

CRUSTACEOS CLAGOSTA, CAMARRO" , "E SIMILARES)" 
GRUPO SEGLUTHTE : Hº 


"GRUPO A - AMILACEOS CCEREAIS... 2" 
1441 "25 - PRO DE TRIGO" 

"26 —- MASSAS" 

“27 — ARROZ" 

"28 - BATATAS" 


"29 — 


ZE GOTO 1000 


Er” CLS 
28 PRIHT 
fes PRIHT 


SA PRIHT "q — 
31 PRIHT "as —- 
o PRINT "GG — 
33 PRINT "a7 — 
s4 PRINT "as — 
so PRINT "39 — 
sb PRINT "40 — 
E” PRINT sss," 
SE GOTO 1088 
aa CLS 
ga PRIHT "GRUPO 


SEMENTES DE LEGUMINOSAS ","CFEIJRO, FAVA, ",,"GRAO-DE-BICO,, 


"39 - SOJA" 

"31 — LENTILHA..." 

"32 —- AMENDOIM" 

su 204 GRUPO SEGUIHTE: H" 

"GRUPO HH - PRODUTOS HORTICOLAS" 
“33 - COUVE, ALFACE, REPOLHO, AGRIAO", "GRELOS, CHICORIA", , "E SIMILARE 


FELIÃO VERDE" 
YAGEM DE ERVILHA" 
CENOURA 
HABO” 
CEBOLA” 
TOMATE 
HED BORA" 
GRUPO SEGUIHTE : PS 


E — FRUTAS" 





| 





q41 PRINT ,.,."41 — PERH, MALA 

942 PRINT "42 - PESSEGO, AMEIXA! CEREJA..." 
943 PRINT "42 — LARANJA, TANGERTIHA So 
q44 PEIHT "44 — UVAS” 

945 PRIMT "45 — MORANGOS" 

a4E FRINT "46 — BAHAHAS 

947? PRINT "47 —- CASTANHAS” 

ag PRINT "48 — HOZES" 

942 PEIHT sd GRUPO SEGUINTE: aii 
asa GOTO 1200 

951 CLS 

982 PRIHT "GRUPO D -— DOCES" 

953 PRINT ,,,,"49 — ACUCARS 

984 PRINT "SH —- MEL" 

oss PRINT "51 -—- CHOCOLATE” 

956 PRINT "52 -— FRUTA PASSA” 

957 PRINT "53 -— BOLOS CASEIROS” 

gse PRINT "54 - BISCOITOS...” 

989 PRINT "SS - COMPOTAS" 

a6a PRINT "SE —- MARMELADA” 

961 PRINT ,s44" GRUPO SEGUINTE: G" 
962 GOTO 1808 

963 CLS 

965 PRIMT "GRUPO GG -— GORDURAS" 
366 PRIHT "S7 - AZEITE” 

967 PRINT “sa - OLEOS VEGETAIS" 

968 PRIHT "S9 —- MARGARINA" 

az PRINT ,,,,, 4 "ACHEAM AQUI OS GRUPOS; MAS PODE” 
971 PRINT "VOLTAR A “""CHAMAR"" QUALGUER UM..." 
ars GOTO 1808 

aPE CLS 

1908 INPUT AE 

1882 IF A$g="L" THEH GOTO B76 

19804 IF Ag="C" THEN GOTO 891 

17006 IF Ag="P" THEN GOTO 983 

10048 IF A$="A” THEH GOTO 915 

1610 IF Ag="H" THEH GOTO 927 

1012 IF Ag="F" THEH GOTO S39 

1814 IF Ag="D" THEH GOTO 951 

1016 IF Ag="G" THEH GOTO 963 

1818 IF A$g="S" THEH GOTO 1188 

1920 IF-Ag="R" THEN RUH 

1838 LET H=vAL AECI TO 25 

1948 LET G=vAL ABÇI3 TO » 

1658 FOR M=1 TO 4 

1960 LET E<H,MD=QHACÇH,MD>-108 

1arã HEXT M 
1984 LET EC HP=BCH, 1)%4, 25+E< NH, 292%9, S+BCH, 3)%4.2 
1898 GOTO 1988 

1188 FAST 

1182 LET P=B 

1143 LET L=B 

1194 LET G=A 

1185 LET D=B 
1106 LET E=h 
1118 FOR H=1 TO 53 
1128 LET P=P+ECN,1) 
1136 LET L=L+BcCH,2) 
1148 LET G=G+EcCH,3) 
115A LET D=(D+BCH,492/183 
1168 LET EzE+rECH) 
117B HEXT HM 
1175 LET P=INT (P/5+,5)2%85 
1198 LET L=IHNT (L/53+.5)9%5 
1185 LET G=INT €G/5+. 5 2%5 
1199 LET D=INT CD/18+,.5)2X18 
1195 LET E=INT cEctIBA. SHI 





LET PI=IHNT Ccckt. los: 


L2HH DS 248 PH 

1218 LET LI=INT (ck. 23/92, 392/5280 

1228 LET GI=IHT CCKEXH.ES IG. Cora DÃS 

l2es ULS 

1288 FRIHT "SUAS HECESSIDADES VALORES PRE-" 
1281 PRIHT "MEDIAS FORO DIA, CDH SIA CISSA" 
1392 PRINT "CEM CAL E GRAMAS O DIREITA DE” 
132805 PRINT ,. "ENERGIA CCAL O" 

1387 PRIHT .."PRÓOTIDOS Go" 

1328039 FRIHT ,., "GORDURAS Go" 

1311 PRINT ,."CGLICIDOS CGo” 

1312 PRIHT ,, "DESPESAS DIARIAS:" 

i328 PRINT o ,," PODE TEMTAR UM MELHOR ACERTOS 
1322 PRIHT ,, "GRUPOS E ALIMENTOS MAIS EKICOS EM" 
1324 PRINT ,."PROTIDOS:C.,P,L(494,5,6)2.H(29,. 0.322" 
1326 PRINT "GORDURAS :G,LÇ3,4,5,82,CCIZIAÇICO” 
1327 PRIHT o" Preco. ACIBo,FC42),DCI1 2" 
1328 PRINT "CGLICIDOS:D,A,F" 

1338 PEIHT AT 4,19:K:AT 4,20:;E;AT 4, 28;KE-E 

1331 IF K>E THEN PRINT AT 4,27;"+" 

1335 PRINT AT &G,19:;PI;AT 6, 260;F;AT E, 2E:FI-P 
1336 IF PI>P THEH PRINT AT E,274"+" 

1344 PEINT AT SB.19;LI;AT E,20;L;AT E, 28B;LI-L 
1341 IF LI>L THEN PRINT AT B,27;"+" 

1245 PRINT AT 1A,19;GI;AT 18, 28;G:;AT 10,258, GI-G 
1346 IF GI>G THEH PEINT AT dg, 27."+" 

1358 PRIHT AT 12,28;D;"&g0R" 

1368 SLOH 

lZrtã GOTO 1808 


Sobre o programa 
DIA DA SEMANA 


(v. página sege) 


"G calendário actualmente uti 
lizado pela maioria dos povos 
teve a sua origem no calendá- 
rio romano, modificado por de 
terminação de Júlio César, no 
ano 46 a«eC., com base em cál- 
culos do astrónomo de Alexan- 
dria, Sozígenes. A modificação 
consistiu em acrescentar, de 4 
em 4 anos, um dia ao ano civil 
de 355 dias. Como esse dia a 
mais se deveria intercalar a 
seguir ao sexto dia antes das 
Calendas de Março, daí chamar- 
-se bissexto ao ano que houves 
se de ter esse dia bis-sextos 
Consistiu nisto a Reforma Juli 
ana do calendário. 

Porém, com o decorrer dos anos 
verificou-se que tal reforma, 
que pretendia sincronizar o a- 
no civil com o ano astronómico, 
não surtiu o efeito desejado. 
Assim, no séce XVI o ano civil 
já se encontrava l0 dias adian- 
tado em relação ao ano astronó 


mico. Foi essa a razão por que 
o papa Gregório XIII, em 1582, 
mandou ”suprimir” 10 dias no 
calendário: do dia 4 de Outu=- 
bro passou-se ao dia ló de Ou- 
tubroo E para que não se repe- 
tisse o desfasamento entre o à 
no civil e o astronómico, de- 
terminou o mesmo papa que daí 
em diante os anos seculares 

não fossem bissextos, como de- 
veriam ser segundo a reforma 
juliana (um ano é bissexto qu- 
ando divisível por 4...) — ex= 
cepto os anos seculares cuja 
centena fosse divisível por 4 
(1600, 2000, 24000ee)i esses 
continuariam a ser bissextos. 
Portanto, não seriam bissextos 
1700, 1800, 1900, 2100, efCecs 
Com este recurso, o sincronis- 
mo entre o ano civil e o astro- 
némico conservar-=se-á durante 
milhares de anos. 

Consistiu isto na chamada Cor= 
recção Gregoriana do calendário 
(ese) € O calendário civil assim 
modificado denomina-se CALENDÃ- 
RIC GREGORIANO - que É o nosso 
calendária. (---)" O. F.6: 





lo 


Po 


jk 


Pd O) GI POD) a 
ASUGIUICAISCNUASLSDLOMDAI MU Pd) 


mM 


is 
114 
E É! 
120 
125 
138 
135 
14% 
145 
15% 
13 
164 
165 
178 
ro 


zx81 
PROGRAMA "DIA DA ai Auter: Jo Fo Ge / Braga 

REM “DAS! 
PETUT "ESTE FROGRAMNA FERMITE DETERIMALHAR 
2RINT RUE OIR DA SEMANA FOI OU VAI SER" 
PRINT "QUA CgUOES DATA DA ERA JE LRISTO. 
BRT ou rsná "ogRO TESS, DEVEM-SE CHTRODUZIER, 
DRTNT “"SEDARENANTUTO , É PúR =STH ORDEM: * 
mo TT É PRTHMETED, OD DIA DO MEG! 
PRTNT DESnNTS,. O NUMERO Dt MES" 
PRINT =. FINALMENTE, Do ANO," 
PRINT sssass "avesso O COMPUTADOR SUGERIR QUE” 
PRINT “INTROSUZE UMA GATA, INTRODLUZA-A. " 
PAUSE FAB Ú Ú 
POKE LES37, 253 — "(..e) Do anteriormente exposto se depreende que 
Pe gem 5 NÃO É TÃO SIMPLES COMD ISSO SABER EM QUE DIA DA 
PRIN DATA SEMANA CAIU OU CAIRÁ QUALQUER DATA. MAS ESTE PRO 
ns bd GRAMA PERMITE SABÊ-LO, E PARA TODA A ERA CRISTÃ, 

AM: Vj 4; TANTO PARA DADAS ANTERIORES COMO PARA DATAS POS- 
LET i=NOT O TERIORES À CORRECÇÃO GREGORIANA. 
e pre a UM PROGRAMA ÚIIL, PORTANTO, PARA INVESTIGADORES, 
DR a HISTORIADORES. .« E CURIOSOS, COMD O AUTOR DESTE 
PRINT A; =; ” Je Fo Ge 
LET B=NOT R BRAGA 


LET E=P+INT CA/4) 
LET S=INT cAZ:0a) 
LET C=INT CCS-16)2%,75+. 75) 





IE A<15B20R (A=1SB2AND M<IBIOR CA=ISSZAND M=1BAHD D<=2)THEN LET EsR+12 
TF ADISG20R P=15B2END M>100R A=1SB2AND M=10AND D>=1STHEM LET E=R-(12+C) 


LET F=INT CPXCEZP-INT CEZ799+4,3)2 

IE AadxINT CA-SI9THEN LET B=H 

I= A>13582AND A=SE GBTHEM LET B=HOT A 

TE R>1SAZAhD A=SXILAAAND A=SABXIHNT CS-42THEH LET B=A 
IF M=1AHND A=BTHEH LET N=6 

:F M=2AND A=ET-rEN LET be z 

IF M=1AHND A<>ETHEH LET N=7 

IF M=2AND AS>BTHEH LET H=3 

IF M=30R M=11THEH LET H=3 

IF M=30R M=7THEN LET N=6 

IF M=5THENH LET H=1 

IF M=6THEN LET N=4 

IF M=STHEN LET H=2 

IF M=920R M=12ZTHEN LET N=5 

IF M=1ATHEH LET N=7 

LET K=INT cecF+M+DoZ 2 INT ES P+HNAD oC o kr. SO 


IF D>Z10R D>38AND cM=40R M=60R M=9207 (d= TE : D>ESAND M=ZAHD 


=2AHND Ac >BOR CD>4SAND D<XIS2AND M=10AHND A=1S5S2THEN LET I=D 


IS 
lSS 
138 


| 191 
| 192 
| 193 


134 


| 195 


| 


136 
138 


IF I=DTHEMH PEINT "INEXISTENTE" 
IF I=DTHEH GOTO 26 

IF K=BTHEH PRINT "SABADO" 

IF K=1 THEN PEINT "DQMINGO" 

IF KE=2THEN PRINT "SEGUNDA-FEIRA" 
IF K=3THEN PRINT “TERCA-FEIRA” 
IF K=4THEMN PRINT "QUARTA-FEIRA" 
IF K=STHEN PRINT "GUINTA-FEIRA" 
IF K=ETHEN PRIHT "SEXTA-FEIRA" 
GOTO 28 


A=EOR D>22AMD HM 





SPECTRUM Procrama "AUXILIAD DE DESENHO? Adaptação de Je MAGALHÃES 
FsI=2== Porto 
Este trabalho permite-lne a elabora 

ção do desenho que pretender, com 

formas bastante rigorosas. Desde o 














circule à linha diagonal, podem : À qo 

ser representados nas dimensões à: = 

que necessitar, (dentro dos limites & 

do ecran), nestes dois casos não A) 

com o rigor absoluto como se dese- > 

jaria, estando no entanto a perfei- 

ção dependente do seu trabalho. 

Exi 

Se pretende desenhar uma linha ho- o 

rizontal ou vertical:. | * 

- Coloque o cursor “as”, onde preten e". 
de iniciar a linha. um 

- Pressione a tecla ” D”, o que se E 
rã assinalado por um Beep, 

- Desloque o cursor até ao final do eme e ee era 
comprimento desse jado. 

- Pressione de novo a tecla “ D”,. 18 GO SUB 9298 
(repare que no final o Beep € | 2. 6 RA Mo ig qe K=S:: LET t=40 
mais prolongado). q: LET P=e8 

No caso de linhas diagonais, o pro- | ia AT 1,6; "AUXILIAR DE & 

blema é identico, apenas que o dese | 48 PRINT DUER 1;AT 2,8;"” 

nho da linha não Segue o percurso | —45 PRINT FT ESTE — 

do cursor, como é lógico. Limita-se | 5 PLOIET Ts 

a assinalar o intervá-lo. entre as 12 80 PRINT AT. 21,157 INK B;"POSI 


posições do cursor, quando assina- 
ladas pela tecla " D ”, 





LET a S=INkEYS: IF àa6="" THE. 


€ e “ N 60 TO ; 
O circulo não necessita de todo es- 194 IF a$="K" OR a$="k” THEN IN 
te trabalho, basta pressionar a te- | BRENT AT ai/oit emana o AR aamindad o = 
cla ” Z *; dar a medida do raio; | G,06.T EE - — e saa ds à == 
“Enter”, RT. 2,6; ng: LORD nSSCREENS 
O deslocamento do cursor pode-se | 1205 IF p=8 THEN PLOT DUVER 42;k,t- 
fazer de duas formas; em espaços | LO? IF ag="5S" OR a$="5s" THEN PRO 
curtos, da medida do cursor; em Sis aR PA 10 caracteres p= 
intervalos de 8 em 8, neste caso “4; LINE n&- “PRINT AT 21,0;' 
utilizando simultâneamente SSYMEOL :AT 0,8; “:AT 2,18; p 
". Pr : E $ f 
SHIFT” e a tecla correspondente ao $: FOR h=19 TO LEN n$: PRINT = 
movimento que se propõe fazer, SS REENSO E m: SAUE no 
Je tencionar apagar qualquer erro, | 108 IP ag="1" OR a$="L“ THEN CL 

n intervá- : “TO Ss 

e deslocar o cursor et ; erva 109 IF ag="1" OR a$="2” OR 6255 ss 
los:scurtos sobre a linha em que co Z" OR a$="3" OR ag="4" o =. 
meteu a falta. |, OR ORDER UA &=“7" THEN INK UA 
Agora o desenho que elaborou pode E - IF Soup o OR De cucs ANOS e 
ser gravado, para isso utilize a <151 THEN LET tL=t+14 


130 IF (ag="y" DR ça Sa BND £ 
1 TP tape t” “OR ag="I") AND k 
<=204 THEN LET k=k+>1 ; 


tecla ” 5 ”; dê o nome que desejar 


K , ) : , a 
à figura; inicie o gravador; ” En- 


w 
N 

pá 
q 
= 
J 
mM 
z 


a ” 
ter . | | 140 IF (ag="t OR a$g="T') AND & 
Se pretender continuar ou relembrar >»1 THEN LET k=k-1 
o trabalho já gravado na cassette; | O E a PODE DE TA 
passe de novo o programa para O seu 192 IF CODE ag=172 AND Kk<248 TH 
SPECTRUM; “Run” e TEnter”. pressio- DR E Da 

anos p= Naa gp E | 193 IF CODE a$=197 AND Lc<idggt TH 
ne a tecla * É ”; passe a gravação EN LEF l=t+8 
do desenho. (Quando pressiona a tes ey Ts A qe = a$=195 AND L>20 THE E 
cla ” 5”, consegue apenas à grava- | 195 IF a$8="h” OR a$="H" THEN so 
ão do desenho e nã rog | To 000 
ro so SD RE 196, IP as="c" OR as="Co THEN IM 
Esta pronto a utilizar o seu traba- PUT "Nome da Figura.“; LINE n5: 
lho da forma que pretender; propo- PRINT AT 8,8;” :“AT 21,050 
mos como abertura de qualquer pro- = RE 6; n$: RAT. | 
grama... 197 IF A fá çÃ- OR 328$=ºD“ THEN BE 
Está ao dispor da sua imaginação E o "S. "6: SO SUB 6900 
adia A AA E ai IF A$G="E“ OR ag="e" THEN ST 


«+ 


199 IF ag=“'Z'º OR ag='z" THEN IN 
PUT “hWRaio do circulo e Ri JF hk- 
ra:0 AND k+ra<255 AND l-ra>:10 BANS 
GE Lerra(si4sA THEN CIRCLE k,lL,fa 

228 GD TO GR 
sS0O28 REM INSTRUCDES 
sagas PAPER 1: INK 7: BORDER 1: | 
LS 
sair PRINT TAB (18), “INSTRUCOES" 
:AT 6,10; OVER à; ERAS ENE SER 
020 PRINT "para mover O CUrHo 
EST 3,0; QUER 25: 


5030 PRINT '“"T= esquerda:Y= b&ix 
ar: U= subir: I= dáareitrta” 

di PRINT ““SYMABOLGSHIFT - aumer 
ar a vetoc.” 

SB.a PRINT (CCCORESC, AT 180,80, QUE 


R ai; 

s2so PRINT ““l=azut,2=verh.,3=wi 
Ct.,&=verde,5=cyan,6=ahareto,7=D 
ranco,B=preto” 

s190 PRINT AT 21,1; FLASH 1;"'Que 





iquer tecla para continuar.”: EE 
CP .22, ERND+100) -40 
S105S IF INKEYy5S='“ THEN GO TO SIR 


s 

S1ILO CLS 

S211 PRINT “C“SAVING AND LOADING 
"ME Rd OUER SS sã 


2120 PRINT “Cas SAVE PICTURE, &= 
LOAD PICTURES 

3130 PRINT ““PARA DESENHO DA LIN 
HAVZ;ATFT 6, Ds VEM dE e 


51535 PRINT ““POSICRO DO CURSOR Ns 
O PRINCIPIO DA LINHA - TECLA “D 
“+ POSICRO DO CURSOR NO FIM CR 
LINHA —- TECLA “DD” NOVAMENTE” 
DR “CCIRCULOC, AT 13,0, & 
+ 
s151 PRINT '“POSICARO DO CURSOR A 
O CENTRO TECLA “Z"- RAIO. Mr 
515S PRINT AT 21,1; FLASH 1;"Hus 
tQuer tecta para continvar.”: ES 
EP .2C2, (RND+100) -40: IF INKEYS=" 
" THEN GO TO 3155 
ETIRA LJ S 
9157 PRINT “CCFUNCOEST, AT 2,8, O 


E SA e es dia 
5159 PRINT ““L- Limpar ecran“;8T 
5,0;"C- copiar (impressoraJj;aTr 
G,D;"“H- ver instrucoes” 
165 PRINT AT 7,B;,"E- stop"“;AT 8 
apl de Losd;AT 9,B;"3- gravar € 
aves: 


s166 PRINT AT 21,1; FLASH 1;7eCuvs 
tiquer tecta pars continuaf-": B&B 

EP .e2, (RND5100) -49; IF INKETS=" 
* THEN GO TO 3168 

s178 INK QB: BORDER QD: PAPER 7: |T 

ls : GO TO 28 

tera IF FL=8 THEN LET Kl1l=kKk: LET 
l= 

52190 IF FL=i THEN DRAU KI-K,LI-L 
: LET FiL=20:;: BEEP .23,28: RETURM 

De D LET FLºNOT- FE 

S232 PLOT K,L 


9020 FOR f=144 TO 147: FOR 9=8 T 
O 7: RERD à: POKE USR CHRS$S f+59,3 
“> NEXT 9: NEXT Ff 

9219 RETURN 

2120 DATA 2,2,0,BIN QoOoaLILL,EBIM 
* 20002111,BIN BALABLLL,B,R 

' 9118 DATA B,BIN BIBBBDÊB, BIN BLI 
| 208000, BIN 011190111,BIN Giiiiiit, 
BIN O 21110111, BIN BiiBOBBB,BIN Gi 
9128 SRTA &, BIN 1180CeRRO,BIN GIL 
| B2808, BIN 29110000, BIN 00111008, 
BIM AQLIRARA, BIN Glilegaga,BIM 14 
iB28060 

/9139 DATA B,BIN 11000000, BIN 111 
20900, BIN 11110008,BIN 11111986 

BIN 11110088, , BIN 11100000,BIN 14 


Froçrame “SPLCL ROLLER” Adaptação de 
ALBERTO 
SPESTRIM SANTOS / LOG 











1 CLS : INUERSE Q | 

5 ELêr 4, 1G4:; DRAatt a,-iaa- DES 
Bid 173, 

3 PLOT 4,94: DRAUN 120,-98: PLr+ 
T à,84á: DRA 22, -2& de 
: à PLOT 4&,7ê: BPRANU 28,-7B:: PLO 
TT 4,8á: DRAW 40,-88 

Ss PLOT 4,54: DRAW 5SQ,-SG: PLO 
T 4,44: DRAU GA, -4dA 

6 PLOT 4,34: DRAW 78, -380: PLO 
T 4,24: DEeAU IB, -20" = 

7 PLOT 4,.Is: DRA 94, -10 

: PRINT RT, AZ, 4="tesrs: pPRTPT 

-Sercnoicsia 
ue S PRINT AT 13, iá;“Industriai, 

SS > 

13 PRINT, BT 2,8; FLASH ET; SER 
TE ROLLER 

ia FOR Ed TO iraa: NEXT i 

1S DIM eGi2j: DIM o(2): DIM fg 
i2+:; DIM xt2t: DIM giZ)l: DIM six 

28 LEFT 6h$92"8B": LEF SW RE 

SOts sd: LET scores: LET usDo: 
LET x=258: LET m$g="S* 

Zi LET a(14lj=S58: LET ot2) =58 E. 
ET XIIl=28: LET g(11=2: LET x(27 
2: LE3 y (im) ad: LET s(14i=4: LEFT 

22 e 

as T FfueL=zS5024: NESTODE . P 
ER 7 BORDER 7 BRIGHT OQ: INK diz 


Ê 


Q 


om 


MAM ta 


em 
-e 


LITmo 


INVERSE 1: OUER O: FLASH B: cis. 


1 eQIiAL. 


de lh qu 


o CP 
A 


=ê& PRINT "“Uoce controla um car 

5) tendo que percorrer todo 
Uito e evitar o missil ques 
rsegue (1. Tera que ter at 
Ç 
- 


Pi 


um my ne 


om o contador “ “FUEL “<* qu 


a fi) 
m 
! 


3 de 


Ch 
e o 1 4 (Oy op, 
JM 


y 


PRINT “Se acabar o primeiro 
conti-nuvara cor outro . ma 
31citi, pois defrontar-se-s 
1s um missstl, ao qual se de 
3 com q daobrá da vetocidad 


38 
Mm 


INT “Os tectas para contr* 
carro sao as seguintes: Et 
a1 


o Cu 


] 
! 


£ e 5 


td DR) 


m q du 


- 
bread 
lh e, Ms guto, 


caso de emergen 


te 
er 
Oy + 
+ 
m 
= 


.. 


S 

qu 

Ed 
x 


f 
DERTES 


% 


dd" 


ly 


NS 
Eg hs 


É) 


(O OZ HEZ ZH OZ FZ ETR 





24 FOR i=> ro 2a” 

+ INK Bs “CEE RRsannansanaanaaanasa | 
Buss" > NEXT í E 

22à PRINT AT Fa e aos 

=, AF 13,2, oc 
ps PRINT AT. FS 

“Es AT Í 28; "EULAT 1 +9,2;" E' ; ÉT 
1+9,28;“Ê": NExT == 

240 PRINT AT 16, >;* ;ar 11 JE | 
INK 4; “; INK 1,07, 12,2; "8 | 

280 PRINT AT 12,28;' RE; AT 11,28 
j. INK 4d; = INK 1;AT IZ, 28; “E 

«268 PRINT AF Srtds E: INK 4;U 

.f INK 1, “mr, ar 19, 14; “HE; K 4 

id +, Ee F 

“oro PRINT INK 4;AT 2,15;” “8” 
4, A ; AT 18,15;: “AT 28,15; * 
280 PRINT AT 5,4;'* == 

INE 4 '=*>- INK É F= 
AT 17,4; ” = 
4; INK rã 

ag FOR .i =& TO . PRINT AT £,4 

Da í 26; Boi AT i+6,4;"Bº;AT 

1+5,26; "E": o 

So PRINT E e o. 12, 4; 
W;oT 10, “a PAS (26: = 

sig PATNT “INK á; ar a = - EE 

11,25; " 

320 PRINT AT 7,6; —eeseag]  ; T 
NK É a » INK 4: 1 ——msm =; 7 z 
5,68:' Eee—es TR &5-=--=-; INK 
1 ———diE - 


DO din St hay 


fofas OQ 


pode pres-cionar a tecia 2, 
si dobra a vetacidade do car 
fazendo-o, no entanto ., gast 
uito mais FUEL. 


PRINT “BOB CONDLICRO E BOR. S + 


PAUSE 2360: CLS J 
FOR rey TO 7: POKE USB “ar ++ 
"NEXT" > 
FOR reã TO 7: PORE uUuar = - 

TE r>1 BND r<6 THEN POKE us | 


.255 
NEXT 


g | 
FOR iz=lá&s TO ISS | 
FOR Fr2D TO 7 | 
READ a: OKE USB CHR& (til+rr 


NEXT r 
NEXT à 
DATA BIN GO0110aB,EIN 00011. 
IN Q1111112,8IN Qiilisia,a 
oss , BIN 11000011 
ATA BIN 110040011,255,255, 
211111120,BIN 21111110,B7 
20, BIN 26011088 
a1110000, BIN 111 
BIN Qi111111 
041111080, BIN 1 


2a 

2021111. BIN: 
BIN 1111111 
111190,5BIN 


1 

118820,BIN O 
«BIN 28211008, 
11120,6BIN 1 


3 
ro 
ar 


W 
LM 


SAE 


pr 2 RR a o Ds 1 


“pao tos NM 
DM ps a a Z 0 
Et 
São 
dl a A 
| pu 


EeWUSGINSG TIS 
ZH Z 


s Go GOMSM- 
Qi pol 


al 


ta 
er 
o 


ES DARE 
ve az tri 
m 


69 Us 4 ES DO pes fe ei O e 4 
pa 
fa 


tom + 
Mom HMOME 
TH 
vel 214 
p 9 
pa 9 
(MM pérm 
H 
ZOMHZOHMh 
ZH pZhH 


Z 
G 
gy 
pá 
pá 
pa 
pá 
1] 
e 
m 
H 
z 
g 
G- 
g 
pá 
es 
y 
S 
y 
Mm 
tri 


pá 
pr 
AR] 
y 
9 
4 
e] 
H 
Z 
o 
| 
pô 
pi 
po 
po 
pos 
Le 
é 
Ho 

Z 
Q 
q 
prá 
ot 


4 


A 
mr 
prod 
o 
5 
5 
pá 
) 
q 
5 


H8E 
pe 
RU 
H 
4 
pá 
pá 
Ú 
k4 
4 
9 
q 
Bê 
G 
pos 
jd 
Ro 
hi 


q 
H 
Z 
pá 
pó 
hei 
pé 
H 
E) 
y 
Mm 
(aa 
Z 
ps 
há 
“a 
ar 


TN 041 


? 


190110,BIN 98100011,E- 
TA BIN 11000000, BIN 11006- 
011201120,5BIN 00111111,BI-. 
EE: 45900 MOC BIN Rae, 
/8,E0,68,58,58, B. “sda | 
“MRBIN PROGRAM = 


= “+ z mn 
À Bs 


















1 
00911,5BIN 11188 


JS DE TESS O DO nu io 
"“Bº;AT Í o é dg ar 1 +5 , E; “ECsAT 
i +5,eod; “5: by 

546 PRINT AT o, E; 10: AT as, os ; 
“ms: aT 12,6; “E; ÀT 2,24;* 

cb PRENTOINK á:BTO 1156; "5 RT 

Lire “1H: Gs2B; AT EB,aASs 
rs e: =“ E 15; as e BAT 16, 15; .. .s 

REG FOR 1=8 TO 22 STEP 2: PRINT 

TF 9,4; PP SAF ASI: XT à 

2a FOR i=120 TO 12 FOR =8 TO 
92 STEP 2 PRINT AT 2,9, "d" NE x 
T dd: MEN i 

7a REM 

siso REM THE GAME 

SE REM 

IRA INK 4 

2a LET m=m+1 LET sz: IF ns 
THEN LET m=2: LET 5s (2) =2 

425 FOR 0=12 TO s 

438 LET og=n$; 

+35 JTF INKEvV$="1" THEN LET h$&=9 
&: LET g$="“": LET =(“1º AND h& 
=*"6") +(*90" AND p$="i'3: LES S=a 
(hés"ICI+rithã="8B") 

+37 IF s=2 THEN LET fuet=fuet- 4 
- ne or o ado LET gge”Bº: LE 

«= 

438 LET fuel= fuel-l: PRINT INK 
D;AT 6,253; "FUEL:"; Fuelx(fuel>=8> 
: IF fuet<G THEN go TO 7086 

àa4& IF INKEY$<>"" AND INKEY$c>" 
1" THEN LET má&=INKEY 


5 
4431 LET = ad LET, Dlgdx=x 
448 PRINT A X ; 
+50 LET ng, mt: E dama apt AND 
(y,x+11=60))-€f- 
AY, X- -1) =56 OR & 


fm 

Sp E y=4y+tmg="6" AND (ATTR € 
1$:x) =56 OR ATTR ty+1,x) =60)3 —-€ 
(y-1,x) =56 OR 


t4y,x) =56 THEN BEEP 
4 LET score=score+igs: 
=fvet+i: PRINT AT 0,9; 

ORE: “;store: LET dotszdots+ 
dots>=2080 THEN LET s(i1)=Z: 

ts >»; =236 THEN LET dots=8: E! 
1 = 
F 


1: GO TO 18 

tx=x (1) AND y=y (133 OR t 

BND u=ut2)- AND n=2) THEN 
O 70880 

sos IF otdy=y AND oldx=x- THEN ES 


10" IE OR m$="5" oR mg=" 
LET 


s 
0 
F INK 


E 
a, 


514 IF n$="5" 
E E ="8" THEN LET dg="": 
dg=(t("Wº AND m$g="6 ” = ND 

bs Arg y + í = ANE nh="8B"3 + 4 a Gm [iris 
nE=s"B) 

«15 PRINT AT y.,x; INK 2; 39% 
NEXT o ep 
<= TO 


s tpj+ 
IF RND>.7 THEN 


“ BAND xextP) AND 
1-1) =58 OR ATTR £ 
OR ATTR (gy ip, x € 
AND x>x (tp) ANÓ £ 

+21) =58 OR ATTR Es 

OR ATTR (yiPJ,xtP 


THEN GO TO 580 


T 
Q 
Im 
Tv 


end er DTTDA párriTU TA 


ga 
> 


Co Pt cm 18) TI AT | 


tpj3 =58 
OR ATTR 
* AND vytp) <y AND 

(PJ) =58 OR ATTR (yu 
OR ATTR (ytp)J+ri,x 


="“" THEN LET pg=egt(ps3: 


IF 
HEN TpBsNT' 


Ta 
s 
j um =“1D 
Me PONTO mph PMAD=mpxo [P 
TOA mm DAE 


sX (ps 


“nO tyxca «MSTV == 


fds DUTO Am 
pt RR é o: 


ZU GON == —D 


p g="8" 

E (D) -1) =58 OR ATT 
=620 OR ATTR (ytp) 
pP 

3 


q 
o tmt 4 TJ 


) =x (Pp) - (Pp 


e po] fo 
Má UMa es 
tear fo fg TO fe So te qua, 


O GQUONX 
ja: 
1 


DV aU 
O TD 44 + MTM 


mm... | = 
q 
a 


(ATTR +. 


Ra 


4427 NA q, qu, pa 


TT em o e q — 
a 


PET 


pubh 
AM vt EM andd 


" AND 9 (P)>U AND 


DT 4Ãpo x tpsso 










(p$=“E“ AND (ATTR (y tp) +1I,x tps3= 
Sa OR ATTR (yutpi+1,xt(pJ)=5E OR & aah De: Lo 
TTR (ytpi+ã,x (pil=68)) | 
6a LET o (tp) =ATTR tutp),x(ipsSo o. . 
610 IF pãc>"" THEN L FEI =Uo 1186 RETURN 
LET FE(p)=("& AND pó=070)€L7% 2000 DATA B.2,1028B.8B, INT ti18BB+ 
" AND pS=0671 ("4 AND paecB d+ RND) , B,2008, “ÉSQUERDA* VERTICAL 
“e AND pã="5"3 O À RÉIT 
ED0 PRINT AT ytpJ,x(tpJ; F&tP) 2810 RESTORE 20908: Ea dgt(3,6 
E25 LET egtp)J=p$ READ j,d,h.vahpahro SD ásia 
6G2B IF utp)J=4 AND xtpJ=x THEN & 
O TO 708 2020 LET b 


1d 843) 
7 A 5 Eudiisd à 
634 NEXT q: NEXT P ad RE Fê cg=bg+bg: ao 


es b=i: RETURN 
700 INK 2: BRIGHT 1: FLASH 2: * s2020 DIM r&t(tB): DATA STR$& j,détda 
ADER 7: CLS : BEEP 1,-48: FLASH 


;STR$& v,STR$ h,STR& hu, STR$ hP, 






E ad 





Q: BRIGHT BOB: CLS : PRINT AT 18, E bio Ff == tag == ——— 285 PA 

2; "SCORE: ";score Z010 RESTÕRE aD2B. FOR n=1 TO 7: 
712 PRINT AT 280,8; “AZAR. « « PERDE READ c&ã: PRINT AT i+2+n, 16; INK 
. Ea BRIGHT 1; PAPER e-tnisBi; FLAG 
=3) « (ABS v>2003 + in=d? *th<S 

53) +(AB5S hv>10813 + tn=51 tas 

HP >1000) +in=7) rtfc109)1; r$ ME 

“321: PRINT AT à 

€ TO b+313 7 

SPECTRUM |  denTethici E soriro PRINT AF ho 
+ RR er tuid é o = + É pe” - É 

= .=— Autori | 1,37?; .. o RS CONTA as <. * Er hi + 

A 


Programa “ALUNA GER FERNANDO PRECES 1,274, INK 5; d,2);ÃAT h1+2,27; 
| ADA GO SOB 4200: GO SUB 5QDO; I | =Baê DD TO ro SE adidas 
| NPUT "Prima ENTER para comecar ''— sS048 FOR m=B TO - FOR n=2 TO 5 


= : = 
Ga o qd em 808: GO SUB 1] sE m; INK 2; BRIGHT ES TROERSES 
| 110 LET zZ&="": PAUSE 1: LET z8= | a; 


| INKEYS$ E NEXT 
AS RE Obs pómim S9s20E| Soco REJURN 
iso ro iTe="p pri AND (der ren 4000 BORDER S:. INK- = PAPER ee 
LET = 







4010, BRIGHT == PRINT PRrER E IR 


1390 IF (z$="q"1 AND tas THEN. A LOCaL DE POISO Taio 


LET d=d-1 


E go > EA 


140 IF (zg>="0"Y ompo top tensor 4520 PRINT- “ A sua mis - 
THEN LET Z=UAL zé: LET j=z o 0d isar o modu tune a 5500 e pe 
[A4SILET Jj=jetr>0r E | > tugar cartao qua aparaca assina 


150 LET. S=INTO A AV + rr sata=a 
“5 + (RES v+ "5008 
dês LET h=INTO (h+v+.5): LET h=h o 


*159 Ler hv=INT (e Sthv + rajttida 


17 
3) -(d=1))) 


tado . 

42532 PRINT s.s.“ Ee pode alteracó 
3 gdirerrao comvdcio com a tacts- 
y para asquarda 2 cos à PF para 

à direita, ou 2 potencia dos jar. 
tas, com as tecias o Gr. 


DO Se ta a 





180 LET hp=t tSshp4herzsr £056 PRINT Guer ii po 
| A9A LET F=(f>0) INT (t.5+F=943 verticat SE ate tranter | 
| 598 GO SUB 32BB e e codes 5 


ser superiora 18 Rs, DO RO Ft 
to de Diso.* | : 
ABEBD PRINT “ O correcto tocal 
poiso tem ur raio- maximo de. 
metros“ Eis 
SsS78 PRINT -,,N A tecta actuada Bo 
sta incapacitada, ate ad apareéi. 
mento dum quadrado. aparato no aee 
opo esquerdo do acram. 

4258 RETURN : 

s200 DATA 18, 127, 4123,128, asa Dos. 


210 IF Ff=Q THEN PRINT AT à, 1S; 
PAPER 2; FLASH 1;“ FUEL : 

220 IF (h(ç10) AND (RBS v<iB) ANO 
D (RBS hp<16) BND (ABS huciol q 
EN PRINT AT. As ni AE e pasa Ss 

FLASH 150.6 acem “=. E 

rima ENTER para jogar outra vo 
ex" LINE z$: RUN 7 - 

556 IF (tncio) AND (RBS v<10) AN 
D (PBS hv<1B) THEN PRINT AT 1,8; | 






Waits 
f 
ai 


Da eme ” 


(INK O OPERA Sd 2: "ER SBD DATA 0.106 ISS ISS 192 105, | 

jocat errado “: INCUT JCCinSAE z | S05b DATA 127,52 Be 

a TE h<1IG THEN PRINT AT 1,8; e sa tos credo [258 ia, isé, AE aa 
| E UTbLENTO “o? INDO CEL ima EN-| ESEO DATA 103 440 CA sed ES So 


TER para outro jogo“; LINE Z&: R' | ,245B,2E4 
UN | S962 DATA 53,7,14,25,55,124,0,8 
250 GO TO 118 o 16 


2,224 ,1i2,56,28,82,0 
BORDER Q- INK 7: PAPER GB: C 49 
E ipi SOB0 DATA B,L 


=, | > 15433, ES = 
1810 PRINT PAPER 1; Ea | Pao gs s4s,a 2éa as . 245, 472,25 
U 1 à, ; 
1920 PAPER 7: INK 2: PRINT -C*” | pioe DATA ass, 955.99, 35 
| JACTOS: 5118 DATA Es se ir 
| 18038 PRINT “— DIRECCAO: * 5120 DIM asi FOR 226 TD 14 
| 1948 INK 1: PRINTS" VEL VÉRTIC À: RESTORE EEE: FOR n=USR 
| OL. CHR$ lG7+a1 TA USE CHES iy7+ar+2 
10540 PRINT *" ALTURA: “ - REMO b; PORE n,b> MEXT po NEXT- 
1980 PRINT ““UVEL HORIZONTAL: a | 
12878 PRINT ““POS HORIZONTAL: - 5130 FOR à2=1 TO 3: FOR b=1 TO B: 
1989 PRINT “* FUEL : * FOR C=i TO E: LET agta,b. » E) =CHR 
1090 PAPER G: INK 7: PRINT PAPER  & (157+4 ra +28b+tci: NEXT NE 
to ATO mtas dgadiod rr o PD | ei 


. SiAB RETURR 


<l 








a a = = ee es ia == E a ade o din ia ia ie 
meato ae TT qe LIZ] BU""]*E.......€3€53572=]>=>=>>>=>— 
CS e SS e e ETA e Es res 3 er e = — a em 5 
- bege — ee toe e Ee TT a a CS RR 
SS —-— a o E 
—H Eee 
Fe OFENtE a aa e QI" emma um e“ 
T[———e——e eee e mem RP = a O 1 O O SS DS xe aa comes ni —— = 
—[D[DD——— - RÃ e e e e e eee ee enem 
= e O e e = = mm 
= CRC > 





A DPENE) la E ec; H Li ET —————————===ºlp ÇÚ E "É ÁGROOOIAIÔB PS aa 
st PLUT-BAÇ AR SER WIFE — “FPF SS 'J' //[/[//[[2*"""""""- 


mem 
— O e e E 
Ca a e 


— a meme mm 
a o SS SS e 
e = — ETR RE A aa ram 
= Ds 
SDS SS aa 
———— e mm 


ao PLUT-LENTE e E e PHSEeJL B BDBP>B>“HBDB ?SÇDZDZPSZQBZDZDZRSZSDDTDZDZPE[]/V/ ]/]//// ">< 
EM PLÚI PLECLE LIA IS E RS=B?B?PSRE.ODPSSSS?OO???ODODERDESSSSESD ERES 
Faso EB PLOT- ME ves us as Ho VE LS xo ESSE EEE 


E5 PLOT MOVE T 156, 10) MOVECIO, 10) AEE 





























HEY ALURES RCCIOHE- HELEETHE STE CLOSEg GOTOtER 


. ESCOLHIDOCHEN LIHE Fara Esrminariteço 
SS PONTE Lim: ES 











eo ed ET E SE SS TYTITJISASSASS: PB 





NE J: HESTO O 
= RCOBSERVAR- O GRAFICO CNP ICI REC] TOHEHELEEHE OS ESSA 







TED PE: FE Ito 5 PuTE EAR DEE DE 
rn REcêne +00 =ceNIREc2O. 28:28 EC" 











TER náo Sera PE Tai E Sr TABS USE TRO tt ty 





t. NEW LINE P FARA NOVOS VALORES TOS CLOSERIO-GOTOIZO — = 


Este programa executa o traçado de o Na linha 155, encontra-se o posiciona 


mento dos eixos X = Y. Poderemos, por e- 


uma recta, relativamente aos valores 
que lhe são atríbuidose xemplo, deslocar o eixo Y ao longo do 


eixo X, alterando os valores de “CENTRES 


Para iniciar o programa, actue 0 com 

mando RUN. 

Execute depois as instruções que lhe o Na linha 170, encontra-se a ascala dos 

vão sendo indicadas. eixos que, neste caso, é de 1 por 1; po- 
derá ser alterada, modificando os valo- 
res de "AXES”. 


CARACTERIZAÇÃO DO GRÁFICO 
e Na linha 180, encontra-se a instrução 


o Ja linha 160, encontra-se a instru- de posicionamento dos valores introduzi- 

ção para abrir o ecran de gráficos; doSe 

"n180” dimensiona o comprimento do ei- 

xo Yo. Este programa também executa rectas, com 
valores regativos. 


+ é 


tm e A 








INTRODUÇÃO JA 


PROGRAMAÇÃO 


ESTRUTURADA 








Já vimos que as listas lineares são es- 
truturas dinamicas, análogas, sob cer- 
tos pontos de vista, aos vectcres esta- 
tÍsticos. A única diferença residia na 
capacidade de fazer variar a dimensão e 
a disposição da estruturas 


Tais listas apenas produzem uma crdena 


ção dos elementos e não permitem cons- 
truir uma organização hierárquica dos 
elementos. 


Inversamente, as arborescencias são mui- 


to utilizadas na informáticas Uma , ALbO= 
rescencia (diz-se também árvore) é um 
conjunto de elementos organizados de mo 
do hierárquico. As árvores em informáti 
ca crescem para baixo - diz-se que a 
raiz da arborescencia está em cima, os 
ramos estendem-se para baixo, sendo as 
folhas os elementos terminais, ou seja, 
os mais baixos da árvore. 

As arborescencias permitem a represen- 
tação de um grande número de situações 
e de fenómenosi decomposição de um pro- 
grama em sub-programas, árvore de ava- 
liação de um jogo de estratógia (xa- 


drez, damas, etce), sintaxe de uma €eX- 
pressão aritmética (fig. £) ou de uma 
linguagem de programação, classifica - 
ções diversas, tal como uma classifica- 
ção zoológica em espécies, géneros, va- 
(figo 9) 


riedades, etc. 








Fig. 9 - Uma classificação 


Rus | 
ein | 

percam | 

cisne! | E coorte = | 
| 


zoológica que respeita uma ordem hierárquica 
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As arborescencias são também utilizadas 
em muitos domínios da informática: compi- 
lação, concepção de sistemas de explora- 
ção, Inteligencia Artificial, construções 
de bases ds dados, etc. 

Assinale-se que uma árvore se define for- 
malmente do seguinte modo: denomina-se ár 
vore de tipo T uma estrutura de dados do 
mesmo tipo, que se designa raiz, e de uma 
sequencia de árvores do mesmo tipo, que 
se designam sub=érvores; esta sequencia 
pode ser nula. Em comparação com uma ár» 
vore genealógica, chama-se “nós-filhos* 
aos nós provenientes da raiz, e "nô-pai” 
à raiz de uma sub-árvore, 

As arborescencias não tem uma representa- 
ção física próprias Para podermos implan- 
tar esta estrutura, vamos analisar uma ar 
borescencia de um tipo particular: a árvo 
re binária, que se representa directamen- 
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pode ser formulada em forma de uma arborescencias 


te na méáguina, Além disso, veremos que 
qualquer árvore pode ser reprcduzida 
numa árvore binárias 

Uma árvore binária é uma árvore cujos 
nós apenas possuem duas ramificações, e 
para a qual se distingue linhas-esquer- 
da e linhas-direita, Dito de outro modo 
uma árvore da forma 


LN 


será diferente de 


SN 
e 


> entanto, esta restrição é uma vanta- 
gem peis, ao tratarmos quaisquer arbo- 
rescencias, damos um carácter diferente 
às ramificações conforme estejam à di- 
reita ou à esquerda. 

Uma árvore binária define-se logicamene 
te pelas seguintes operações; 


e ACESSO que se subdivide em três fun- 
ções; 

- raizes que lê a raiz de uma árvore, 

- direita, que 18 a ramificação direita 
de uma árvore 

- esquerda, que dá acesso à sub-árvore 
esquerda 

« CONSTRUÇÃO: criação de uma árvore bi- 
nária a partir de duas sub-árvores e de 
uma raiz 

ms TESTE: função vazia que determina se 
Co. sub-árvore está vazia ou não, 


Há duas representações físicas possíveis 
de uma árvore binária: utilização de ta 
belas ou de agregados. 

Implantada em forma de tabelas, a estru 
tura de uma árvore binária reduz-se a 
tres vectores. O vector dos valores, 

que contém a componente significativa 

de um nó, o vector dos ponteiros sobre 
as linhas esquerdas e o vector dos pon= 
teiros sobre as linhas direitas. 

A outra forma, que emprega a noção de a- 
gregado, é muito utilizada em Pascal. 
Uma característica importante das árvo- 
res é a de poderem ser “percorridas”, ou 
seja, é possivel substituir o compr imen 
to desta arborescencia numa certa ordem 
e tratar os valores dos nós durante es 
te percursos 

Os tres percursos principais que se pos 
dem realizar numa árvore denominamese 


23 
programa expressão; 


type arvore = f elemento; 
clemento = record 
valor :i car; 
Inhe : arvore; 
Inhd ; arvore; 
end; 


var expr : arvore; 


function criar(vicar;le,ldiarvore)iarvore; 
var piarvore; 
begin 
new(p); 
pfevalor:=r; 
pfelnhe; =je; 
Pfelnhdi:=ld; 
criari=p; 
end; 


procedure preordre(azarvore); 
begin 
if a nil then 
begin 
write(afevalor); 
preordre(af.lnhe); 
preordre(af.Inhd); 
end; 
end; 


procedure postordre (aiarvore); 
begin 
if a<>nil then 
begin 
postordre(af. Inhe); 
postordre(a?. Inhd); 
write(afevalor); 
end; 
end; 


procedure inordre (aizarvore); 
begin 
if a <> nil then 
begin 
inordre (af. Inhe); 
write(af.valor); 
inordre (af. Inhd); 
end; 
end; 
begin (X programa principal X) 
expr:i= criar('+º',criar ('X”, 
criar (*4º,nil,nil), 
criar (º3º ,nil,níl)), 
criar (“*X”, 
criar ('5º,nil,nil), 
criar ('2º,nil,nil))); 
preordre (expr); 
writeln; 
postordre (expr); 
writeln; 
inordre(expr); 
ends 


Figel0 = Criação e percurso de uma expressão 
aritmética representada em forma de uma VOm 
e binária, Os percursos Pei postordre e 


d « 
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“oréorder:”, “inordeu” e 
“postordem” e exprimenese 
de um modo muito sirples: 
"opréordem”: tratar primei- 
ro a raiz e depois as li= 
nhas (filas. 
“postordem”; tratar primsi 
ro as linhas e depois a ra 
iZe 
"inorden”: tratar a linha 
esquerda, depois a raiz, de 
pois a linha direita. 
Percorrendo sucessivamente 
uma arborescencia de expres 
são aritmética através de 
"préordem”, "postordem” e 
“inordem”, obtem=-se as nota 
ções: 
e"préordem”; + x 43%52 
(pré-fixado) 
o“postordem”; 4 3x5 2+ 
(post=fixado) 
e"inordem”:;4 * 3 + 5 x 2 
(infixado) 
A figura 10 mostra uma im 
plantação destes procedi- 
mentos em Pascal, Apresenta 
a construção de uma arbores 
cencia e o seu percurso por 
estes três algoritmos, 
As árvores binárias, enquan 
to tais, tem numerosas apli 
caçõeso Uma delas, bastante 
útil, permite seleccionar 
os elementos, criando uma ár 
vore binária de pesquisas 
O algoritmo desta triagem 
equivale a criar uma arbores 
cencia, inserindo sistemati- 
camente os números inferio- 
res à raiz na sub-árvore da 
esquerda, e os números supe- 
ricres à raiz na sub-árvore 
da direita. (fige 11) 
Imaginemos que a sequencia 
dos números a seleccionar é; 
12 6 8 929 10 36 16 45 108 
T anciDOS inserção destes nú- 
meros na arborescencia, obtem 
-se à estrutura representada 
na figura 12, Depois, basta 


introduzir-lhe um percurso “i 


nordem” para recuperar os nú- 
meros seleccionados, Este ti- 
po de algoritmo de triagem, 
surpreendentemente, é muito 
rápido e bastante utilizado 
em triagens de tabelas, 





programa inserção; 
type arvore =1 elemento; 


record 

valor i inteiro; 
| Inhe,lnhd : arvore; 
end; 


var arv i arvore; n :; inteiro; 


elemento 


function inserir ( x:inteiroja :; arvore); arvore; 
begin 
if a=nil then 
inserir := criar (x,nil,nil) 
else 
if x (= afovalor 
then inserir := inserir(x,afelinhe) 
else inserir ;= inserir(x,afelinhd); 
end; 
beçin 
arvi=nil; 
repeat 
reao (n); 
inserir(n,arrv ); 


until n= O; 
inorder ( arv); 
end, 





or inserção escrita em 


Fige 11 - Programa de triagem 
inorder” devem ser reto= 


Pascal. As rotinas “criar” e 
madas da fig, 10, 





Fãge 12 = O estado da arborescencia 
dos números da sequencia 12 6 & 92 o 
108 7. Um simples percurso “inorder 
para os re=ler classificados. 
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